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

Follow latest changes in Hanafuda.ID

Browse source
This commit is contained in:
Tissevert 2019-11-12 22:18:52 +01:00
parent 57370d62ee
commit f968c41d9d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Hanafuda/Message.hs
View file

@ -29,7 +29,7 @@ import qualified Data.Text as Text (pack, unpack)
import Data.Text.Encoding (decodeUtf8, encodeUtf8) import Data.Text.Encoding (decodeUtf8, encodeUtf8)
import GHC.Generics (Generic) import GHC.Generics (Generic)
import qualified Hanafuda (Card(..), Flower(..), Pack, cardsOfPack, empty, packOfCards) import qualified Hanafuda (Card(..), Flower(..), Pack, cardsOfPack, empty, packOfCards)
import Hanafuda.ID (ID(..), getID) import Hanafuda.ID (ID(..))
import Hanafuda.KoiKoi (PlayerID) import Hanafuda.KoiKoi (PlayerID)
import qualified Hanafuda.KoiKoi as KoiKoi ( import qualified Hanafuda.KoiKoi as KoiKoi (
Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), PlayerTurn Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), PlayerTurn
@ -44,7 +44,7 @@ instance FromJSONKey PlayerID where
instance ToJSON PlayerID where instance ToJSON PlayerID where
toEncoding = genericToEncoding defaultOptions toEncoding = genericToEncoding defaultOptions
instance ToJSONKey PlayerID where instance ToJSONKey PlayerID where
toJSONKey = toJSONKeyText (Text.pack . getID) toJSONKey = toJSONKeyText (Text.pack . show . getID)
first :: (a -> a) -> [a] -> [a] first :: (a -> a) -> [a] -> [a]
first _ [] = [] first _ [] = []