diff options
author | Jasper Van der Jeugt | 2020-08-22 14:47:58 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-22 14:47:58 +0200 |
commit | 7f5e0db31447cc612cf469ef07854677f9d25b83 (patch) | |
tree | a066c0ba7f22c32632c2427b6c17c5fa0c357e24 /server/lib/Uplcg/Game.hs | |
parent | 5a2a71cb50fd892585c7e5f3af726ac750ecb097 (diff) |
Multiple card sets
Diffstat (limited to '')
-rw-r--r-- | server/lib/Uplcg/Game.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |