Remove unnecessary uses of head

This commit is contained in:
Joseph C. Sible 2020-02-09 22:51:10 -05:00
parent c95914f9b3
commit 6d06103cab
5 changed files with 14 additions and 15 deletions

View file

@ -2293,7 +2293,7 @@ checkWhileReadPitfalls _ (T_WhileExpression id [command] contents)
isStdinReadCommand (T_Pipeline _ _ [T_Redirecting id redirs cmd]) =
let plaintext = oversimplify cmd
in head (plaintext ++ [""]) == "read"
in headOrDefault "" plaintext == "read"
&& ("-u" `notElem` plaintext)
&& all (not . stdinRedirect) redirs
isStdinReadCommand _ = False