From 0292ff06c108a9f258990d77ed714a5abc3cb594 Mon Sep 17 00:00:00 2001
From: Dennis Frieberg <nerfingen@yahoo.de>
Date: Tue, 1 Sep 2020 14:23:01 +0200
Subject: [PATCH] Added Add Player Event

---
 src/Data/Aeson/TickLeiste.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Data/Aeson/TickLeiste.hs b/src/Data/Aeson/TickLeiste.hs
index 4f5ea4e..c20ba92 100644
--- a/src/Data/Aeson/TickLeiste.hs
+++ b/src/Data/Aeson/TickLeiste.hs
@@ -17,20 +17,21 @@ $(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "
 
 data JSONRequest
   = SetPlayerTickR {sptRplayerUUID :: U.UUID, sptRtick :: Tick}
-  | AddPladerTickR {aptRplayerName :: T.Text, aptRtick :: Tick}
+  | AddPlayerTickR {aptRplayerName :: T.Text, aptRtick :: Tick}
   | InitializeTickLeisteR {itlRtickLeiste :: [(Tick, [T.Text])]}
   | TickLeisteR
   | ChangeNameR {cnaRplayerUUID :: U.UUID, cnaRplayerName :: T.Text}
   | RemovePlayerR {rmpRplayerUUID :: U.UUID}
-  deriving (Show)
+  deriving (Show,Eq)
 
 $(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "requestType"}, fieldLabelModifier = drop 4} ''JSONRequest)
 
 data JSONEvent
   = SetPlayerTickE {sptEplayerUUID :: U.UUID, sptEtick :: Tick}
+  | AddPlayerTickE {aptEplayerUUID :: U.UUUID, aptEplayerName :: T.Text}
   | InitializeTickLeisteE {itlEtickLeiste :: [(Tick, [(U.UUID, T.Text)])]}
   | ChangeNameE {cnaEplayerUUID :: U.UUID, cnaEplayerName :: T.Text}
   | RemovePlayerE {rmpEplayerUUID :: U.UUID}
-  deriving (Show)
+  deriving (Show,Eq)
 
 $(deriveJSON defaultOptions {sumEncoding = defaultTaggedObject {tagFieldName = "eventType"}, fieldLabelModifier = drop 4} ''JSONEvent)