From 703bad4fad198d670272fd71d84912ba4dfda264 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Fri, 31 Jul 2020 21:47:54 +0200
Subject: Capitalization

---
 server/lib/Cafp/Main/Server.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'server/lib/Cafp/Main/Server.hs')

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
-- 
cgit v1.2.3