summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Lib.hs4
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