From 9e31c6777d610063edee04725bea7aec5cc24163 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Sat, 24 Aug 2019 22:07:34 +0200
Subject: [PATCH] Fix number of players for KoiKoi game to 2 on the type level

---
 src/Hanafuda/KoiKoi.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Hanafuda/KoiKoi.hs b/src/Hanafuda/KoiKoi.hs
index 9f4f42c..28f4a2d 100644
--- a/src/Hanafuda/KoiKoi.hs
+++ b/src/Hanafuda/KoiKoi.hs
@@ -49,8 +49,8 @@ play move game@(Game {river, step}) =
   where
     canCatch card1 card2 = flower card1 == flower card2 && river `contains` card2
 
-new :: MonadIO m => [PlayerID] -> Mode -> m Game
-new playersList mode = do
+new :: MonadIO m => (PlayerID, PlayerID) -> Mode -> m Game
+new (playerA, playerB) mode = do
   playing <- Player.random players
   Round.deal $ Game {
         mode
@@ -67,4 +67,4 @@ new playersList mode = do
       , rounds = []
     }
   where
-    players = Player.players playersList
+    players = Player.players [playerA, playerB]