Splittertech/tickLeiste
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added read instances

Browse source
This commit is contained in:
Dennis Frieberg 2020-09-22 17:33:15 +02:00
parent 4af9f88b83
commit da214ba266
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tickLeiste-aeson/src/Data/Aeson/TickLeiste.hs
View file

@ -22,7 +22,7 @@ data JSONRequest
| TickLeisteR | TickLeisteR
| ChangeNameR {cnaRplayerUUID :: U.UUID, cnaRplayerName :: T.Text} | ChangeNameR {cnaRplayerUUID :: U.UUID, cnaRplayerName :: T.Text}
| RemovePlayerR {rmpRplayerUUID :: U.UUID} | RemovePlayerR {rmpRplayerUUID :: U.UUID}
deriving (Show,Eq) deriving (Show, Eq, Read)
$(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "requestType"}, fieldLabelModifier = drop 4} ''JSONRequest) $(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "requestType"}, fieldLabelModifier = drop 4} ''JSONRequest)
@ -32,6 +32,6 @@ data JSONEvent
| InitializeTickLeisteE {itlEtickLeiste :: [(Tick, [(U.UUID, T.Text)])]} | InitializeTickLeisteE {itlEtickLeiste :: [(Tick, [(U.UUID, T.Text)])]}
| ChangeNameE {cnaEplayerUUID :: U.UUID, cnaEplayerName :: T.Text} | ChangeNameE {cnaEplayerUUID :: U.UUID, cnaEplayerName :: T.Text}
| RemovePlayerE {rmpEplayerUUID :: U.UUID} | RemovePlayerE {rmpEplayerUUID :: U.UUID}
deriving (Show,Eq) deriving (Show, Eq, Read)
$(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "eventType"}, fieldLabelModifier = drop 4} ''JSONEvent) $(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "eventType"}, fieldLabelModifier = drop 4} ''JSONEvent)

2
tickLeiste/src/Data/TickLeiste.hs
View file

@ -28,7 +28,7 @@ import qualified Data.UUID as U
-- | A Tick is just a number -- | A Tick is just a number
data Tick = Abwarten | Bereithalten | Tick Int data Tick = Abwarten | Bereithalten | Tick Int
deriving (Show, Eq, Ord) deriving (Show, Eq, Ord, Read)
-- | test if 'Tick' is constructed using 'Abwarten' -- | test if 'Tick' is constructed using 'Abwarten'
isAbwarten :: Tick -> Bool isAbwarten :: Tick -> Bool