added read instances

tickLeiste-aeson/src/Data/Aeson/TickLeiste.hs

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

tickLeiste/src/Data/TickLeiste.hs

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