Make Move instance of Show to ease generating debug message

This commit is contained in:
Tissevert 2019-11-12 22:10:45 +01:00
parent 0b6fd62255
commit e0003c5906

View file

@ -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 {