Make the code -Werror safe
authorJoachim Breitner <mail@joachim-breitner.de>
Wed, 1 Oct 2014 10:02:11 +0000 (12:02 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Wed, 1 Oct 2014 10:02:11 +0000 (12:02 +0200)
CrossCodegen.hs

index 5a62d05..687f5be 100644 (file)
@@ -433,7 +433,7 @@ haskellize (firstLetter:next) = toLower firstLetter : loop False next
 -- mangling.
 stringify :: String -> String
 -- Spec: stringify = unwords . words
-stringify xs = go False (dropWhile isSpace xs)
+stringify = go False . dropWhile isSpace
   where
     go _haveSpace [] = []
     go  haveSpace (x:xs)