From 7f5e0db31447cc612cf469ef07854677f9d25b83 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sat, 22 Aug 2020 14:47:58 +0200
Subject: Multiple card sets

---
 server/lib/Uplcg/Game.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'server/lib/Uplcg/Game.hs')

diff --git a/server/lib/Uplcg/Game.hs b/server/lib/Uplcg/Game.hs
index 02e40cb..140f2b6 100644
--- a/server/lib/Uplcg/Game.hs
+++ b/server/lib/Uplcg/Game.hs
@@ -157,7 +157,7 @@ leaveGame pid game = case game ^? gamePlayers . ix pid of
 
 blackCardBlanks :: Cards -> BlackCard -> Int
 blackCardBlanks cards (BlackCard c) =
-    maybe 0 (length . T.breakOnAll "\\BLANK") $ cardsBlack cards V.!? c
+    maybe 0 (length . T.breakOnAll "_") $ cardsBlack cards V.!? c
 
 maximaOn :: Ord o => (a -> o) -> [a] -> [a]
 maximaOn f = \case [] -> []; x : xs -> go [x] (f x) xs
-- 
cgit v1.2.3