format, style a

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Lib.hs b/src/Lib.hs
index 9dd42ec..629ed4f 100644
--- a/src/Lib.hs
+++ b/src/Lib.hs
@@ -818,12 +818,12 @@ collectUntil n f src =
       Just dst' -> (:) src <$> collectUntil (n-1) f dst'
 
 headMay :: [a] -> Maybe a
-headMay [] = Nothing
+headMay []    = Nothing
 headMay (x:_) = Just x
 
 data HeadException = HeadException deriving (Show)
 instance E.Exception HeadException
 
 mustHead :: [a] -> IO a
-mustHead [] = throw HeadException
+mustHead []    = throw HeadException
 mustHead (x:_) = return x