Make Move instance of Show to ease generating debug message
This commit is contained in:
parent
0b6fd62255
commit
e0003c5906
1 changed files with 1 additions and 1 deletions
|
@ -30,7 +30,7 @@ import qualified Hanafuda.KoiKoi.Yaku as KoiKoi (Score)
|
||||||
import qualified Hanafuda.Player as Player (ID, Players, Player, Scores, set)
|
import qualified Hanafuda.Player as Player (ID, Players, Player, Scores, set)
|
||||||
|
|
||||||
data Mode = FirstAt Int | WholeYear deriving (Show)
|
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 Step = ToPlay | Turned Card | Scored | Over deriving (Show)
|
||||||
data Source = Hand | Deck deriving (Show)
|
data Source = Hand | Deck deriving (Show)
|
||||||
data Action = Action {
|
data Action = Action {
|
||||||
|
|
Loading…
Reference in a new issue