From a3ba23ea55fa1532180bb1979f60ff174fa09298 Mon Sep 17 00:00:00 2001
From: quidtum <quidtum>
Date: Sun, 16 May 2021 19:25:32 -0400
Subject: format, style a

---
 src/Lib.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3