From f45d3a383ea3c2f7b214791736dda29b8ea0a768 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Tue, 20 Aug 2019 14:19:31 +0200
Subject: [PATCH] Derive an instance of Read for Yaku to allow making a proper
 FromJSONKey instance of it in APILanguage

---
 src/Hanafuda/KoiKoi/Yaku.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Hanafuda/KoiKoi/Yaku.hs b/src/Hanafuda/KoiKoi/Yaku.hs
index 2341411..712f17a 100644
--- a/src/Hanafuda/KoiKoi/Yaku.hs
+++ b/src/Hanafuda/KoiKoi/Yaku.hs
@@ -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