Makes wordsWhen more generic.
authorMoritz Angermann <moritz.angermann@gmail.com>
Thu, 7 Jan 2016 12:38:11 +0000 (20:38 +0800)
committerMoritz Angermann <moritz.angermann@gmail.com>
Thu, 7 Jan 2016 12:38:11 +0000 (20:38 +0800)
src/Base.hs

index 8830a7c..86ddbf5 100644 (file)
@@ -241,9 +241,9 @@ removeDirectoryIfExists d =
 
 -- | Split function. Splits a string @s@ into chunks
 -- when the predicate @p@ holds. See: http://stackoverflow.com/a/4981265
-wordsWhen :: (Char -> Bool) -> String -> [String]
+wordsWhen :: Eq a => (a -> Bool) -> [a] -> [[a]]
 wordsWhen p s =
     case dropWhile p s of
-        "" -> []
+        [] -> []
         s' -> w : wordsWhen p s''
             where (w, s'') = break p s'