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

@ -457,8 +457,8 @@ checkEchoSed = ForShell [Bash, Ksh] f
-- This should have used backreferences, but TDFA doesn't support them
sedRe = mkRegex "^s(.)([^\n]*)g?$"
isSimpleSed s = fromMaybe False $ do
[first,rest] <- matchRegex sedRe s
let delimiters = filter (== head first) rest
[h:_,rest] <- matchRegex sedRe s
let delimiters = filter (== h) rest
guard $ length delimiters == 2
return True
checkIn id s =