aboutsummaryrefslogtreecommitdiff
path: root/server
diff options
context:
space:
mode:
Diffstat (limited to 'server')
-rw-r--r--server/lib/Cafp/Game.hs2
-rw-r--r--server/lib/Cafp/Messages.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/server/lib/Cafp/Game.hs b/server/lib/Cafp/Game.hs
index c5bd461..4a7bc91 100644
--- a/server/lib/Cafp/Game.hs
+++ b/server/lib/Cafp/Game.hs
@@ -272,7 +272,7 @@ gameViewForPlayer self game =
TableVoting black shuffled votes -> Voting
black
(fst <$> shuffled)
- (fromMaybe 0 $ V.findIndex ((self `elem`) . snd) shuffled)
+ (V.findIndex ((self `elem`) . snd) shuffled)
(HMS.lookup self votes)
TableTally black voted -> Tally black voted in
GameView
diff --git a/server/lib/Cafp/Messages.hs b/server/lib/Cafp/Messages.hs
index 4e5123d..b572fb7 100644
--- a/server/lib/Cafp/Messages.hs
+++ b/server/lib/Cafp/Messages.hs
@@ -49,8 +49,8 @@ data TableView
| Voting
!BlackCard
!(Vector (Vector WhiteCard)) -- ^ Proposals to vote for
- !Int -- ^ My proposal
- !(Maybe Int) -- ^ My vote
+ !(Maybe Int) -- ^ My proposal
+ !(Maybe Int) -- ^ My vote
| Tally !BlackCard !(Vector VotedView)
deriving (Show)