diff options
Diffstat (limited to 'server')
| -rw-r--r-- | server/lib/Cafp/Game.hs | 2 | ||||
| -rw-r--r-- | server/lib/Cafp/Messages.hs | 4 |
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) |