1 files changed, 2 insertions, 2 deletions
diff --git a/utils.hs b/utils.hs
index fb1ea96..e7e0d4b 100644
--- a/utils.hs
+++ b/utils.hs
@@ -8,9 +8,9 @@ import Control.Applicative (ZipList (ZipList, getZipList))
 
 infixr 6 $>
 
-splitOn :: (Char -> Bool) -> String -> [String]
+splitOn :: (a -> Bool) -> [a] -> [[a]]
 splitOn p s = case dropWhile p s of
-  "" -> []
+  [] -> []
   s' -> w : splitOn p s''
     where
       (w, s'') = break p s'