From e0003c59060cf892b94a1d05bcc8757ea5af836d Mon Sep 17 00:00:00 2001 From: Tissevert Date: Tue, 12 Nov 2019 22:10:45 +0100 Subject: [PATCH] Make Move instance of Show to ease generating debug message --- src/Hanafuda/KoiKoi/Game.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Hanafuda/KoiKoi/Game.hs b/src/Hanafuda/KoiKoi/Game.hs index 7b0b77b..379719d 100644 --- a/src/Hanafuda/KoiKoi/Game.hs +++ b/src/Hanafuda/KoiKoi/Game.hs @@ -30,7 +30,7 @@ import qualified Hanafuda.KoiKoi.Yaku as KoiKoi (Score) import qualified Hanafuda.Player as Player (ID, Players, Player, Scores, set) data Mode = FirstAt Int | WholeYear deriving (Show) -data Move = Play Card | Capture (Card, Card) | Choose Card | KoiKoi Bool +data Move = Play Card | Capture (Card, Card) | Choose Card | KoiKoi Bool deriving (Show) data Step = ToPlay | Turned Card | Scored | Over deriving (Show) data Source = Hand | Deck deriving (Show) data Action = Action {