diff options
| author | Jasper Van der Jeugt | 2020-07-31 21:47:54 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt | 2020-07-31 21:47:54 +0200 |
| commit | 703bad4fad198d670272fd71d84912ba4dfda264 (patch) | |
| tree | 721e192497b06a284d66e08380ac3db3751c9ab8 /server/lib/Cafp/Main | |
| parent | 08e9b8a5a17b0b5df16322298e6cfb35ed7bd6c6 (diff) | |
Capitalization
Diffstat (limited to 'server/lib/Cafp/Main')
| -rw-r--r-- | server/lib/Cafp/Main/Server.hs | 4 |
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 |