From f968c41d9d181a36f544caa2044d41dc679e71c0 Mon Sep 17 00:00:00 2001 From: Tissevert Date: Tue, 12 Nov 2019 22:18:52 +0100 Subject: [PATCH] Follow latest changes in Hanafuda.ID --- src/Hanafuda/Message.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs index 5b7144e..b63cac7 100644 --- a/src/Hanafuda/Message.hs +++ b/src/Hanafuda/Message.hs @@ -29,7 +29,7 @@ import qualified Data.Text as Text (pack, unpack) import Data.Text.Encoding (decodeUtf8, encodeUtf8) import GHC.Generics (Generic) import qualified Hanafuda (Card(..), Flower(..), Pack, cardsOfPack, empty, packOfCards) -import Hanafuda.ID (ID(..), getID) +import Hanafuda.ID (ID(..)) import Hanafuda.KoiKoi (PlayerID) import qualified Hanafuda.KoiKoi as KoiKoi ( Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), PlayerTurn @@ -44,7 +44,7 @@ instance FromJSONKey PlayerID where instance ToJSON PlayerID where toEncoding = genericToEncoding defaultOptions instance ToJSONKey PlayerID where - toJSONKey = toJSONKeyText (Text.pack . getID) + toJSONKey = toJSONKeyText (Text.pack . show . getID) first :: (a -> a) -> [a] -> [a] first _ [] = []