hanafuda/lib
1
1
Fork 0
Code Issues Pull requests Releases Wiki Activity

Derive an instance of Read for Yaku to allow making a proper FromJSONKey instance of it in APILanguage

Browse source
This commit is contained in:
Tissevert 2019-08-20 14:19:31 +02:00
parent e037748199
commit f45d3a383e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Hanafuda/KoiKoi/Yaku.hs
View file

@ -18,7 +18,7 @@ data Yaku =
| TsukimiZake | TsukimiZake
| HanamiZake | HanamiZake
| TsukiFuda | TsukiFuda
deriving (Eq, Ord, Show) deriving (Eq, Ord, Read, Show)
type YakuRater = Pack -> Maybe Points type YakuRater = Pack -> Maybe Points
type Score = M.Map Yaku Points type Score = M.Map Yaku Points