From d1b1068d0c9dad94734438ddd6f5cfcec77396dd Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 4 Aug 2020 12:48:42 +0200
Subject: Bugfix

---
 server/lib/Cafp/Game.hs     | 2 +-
 server/lib/Cafp/Messages.hs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'server/lib')

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