hlint suggestions.

This commit is contained in:
John MacFarlane
2017-10-27 21:26:16 -07:00
parent be7a29e9b9
commit f3e901c29d
+1 -1
View File
@@ -113,7 +113,7 @@ parseOptions options' defaults = do
getOpt' Permute options' rawArgs
let unknownOptionErrors =
foldr (handleUnrecognizedOption . (takeWhile (/= '='))) []
foldr (handleUnrecognizedOption . takeWhile (/= '=')) []
unrecognizedOpts
unless (null errors && null unknownOptionErrors) $