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

This commit is contained in:
Tissevert 2019-08-20 14:19:31 +02:00
parent e037748199
commit f45d3a383e

View file

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