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 ++--
 static/style.css | 4 ++--
 2 files changed, 4 insertions(+), 4 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
diff --git a/static/style.css b/static/style.css
index 6355b03..bec896b 100644
--- a/static/style.css
+++ b/static/style.css
@@ -17,11 +17,11 @@ body {
 }
 
 a {
-	color: #1eaedb;
+	color: #1a97bf;
 }
 
 a:hover {
-	color: #0e99c4;
+	color: #075d77;
 }
 
 button[type="submit"] {
-- 
cgit v1.2.3