aboutsummaryrefslogtreecommitdiff
path: root/server/lib/Cafp/Main
diff options
context:
space:
mode:
authorJasper Van der Jeugt2020-07-31 21:47:54 +0200
committerJasper Van der Jeugt2020-07-31 21:47:54 +0200
commit703bad4fad198d670272fd71d84912ba4dfda264 (patch)
tree721e192497b06a284d66e08380ac3db3751c9ab8 /server/lib/Cafp/Main
parent08e9b8a5a17b0b5df16322298e6cfb35ed7bd6c6 (diff)
Capitalization
Diffstat (limited to 'server/lib/Cafp/Main')
-rw-r--r--server/lib/Cafp/Main/Server.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/server/lib/Cafp/Main/Server.hs b/server/lib/Cafp/Main/Server.hs
index fc31cec..5c8f08b 100644
--- a/server/lib/Cafp/Main/Server.hs
+++ b/server/lib/Cafp/Main/Server.hs
@@ -54,8 +54,8 @@ readCards = Cards
<$> fmap parseCards (T.readFile "assets/black.txt")
<*> fmap parseCards (T.readFile "assets/white.txt")
where
- parseCards = V.fromList .
- filter (not . T.isPrefixOf "#") . filter (not . T.null) . T.lines
+ parseCards = V.fromList . filter (not . T.null) . map dropComment . T.lines
+ dropComment = T.strip . fst . T.break (== '#')
newServer :: IO Server
newServer = Server <$> readCards <*> MVar.newMVar HMS.empty