diff options
Diffstat (limited to 'server/lib/Cafp/Main/Server.hs')
| -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 |