Derive an instance of Read for Yaku to allow making a proper FromJSONKey instance of it in APILanguage
This commit is contained in:
parent
e037748199
commit
f45d3a383e
1 changed files with 1 additions and 1 deletions
|
@ -18,7 +18,7 @@ data Yaku =
|
|||
| TsukimiZake
|
||||
| HanamiZake
|
||||
| TsukiFuda
|
||||
deriving (Eq, Ord, Show)
|
||||
deriving (Eq, Ord, Read, Show)
|
||||
type YakuRater = Pack -> Maybe Points
|
||||
type Score = M.Map Yaku Points
|
||||
|
||||
|
|
Loading…
Reference in a new issue