diff options
author | quidtum <quidtum> | 2021-05-16 19:25:32 -0400 |
---|---|---|
committer | quidtum <quidtum> | 2021-05-16 19:25:32 -0400 |
commit | a3ba23ea55fa1532180bb1979f60ff174fa09298 (patch) | |
tree | 5e36ce366ebb7728ffe4835a755639e25f322635 | |
parent | 00df43e21c408d4915ddce5b6dc78000648df9e5 (diff) |
format, style a
-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"] { |