diff --git a/Alea/List.hs b/Alea/List.hs index 844f63f..f1c35dd 100644 --- a/Alea/List.hs +++ b/Alea/List.hs @@ -5,7 +5,6 @@ module Alea.List where split :: (Eq a) => a -> [a] -> [[a]] split _ [] = [[]] split delim (c:cs) - | c == delim = [] : rest - | otherwise = (c : head rest) : tail rest - where - rest = split delim cs + | c == delim = [] : rest + | otherwise = (c : head rest) : tail rest + where rest = split delim cs