diff options
| -rw-r--r-- | src/Lib.hs | 4 | ||||
| -rw-r--r-- | static/style.css | 4 |
2 files changed, 4 insertions, 4 deletions
@@ -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"] { |