Show, Eq instances

diff --git a/Partty.hs b/Partty.hs
index ddb1323..8ad9aa9 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -28,14 +28,17 @@ data Score = NoScore | ToFew | Scored
 data IncomingMessage = InternalMessage InternalMessage
                      | DayMessage      DayMessage
                      | NightMessage    NightMessage
+                    deriving (Show, Eq)
        
 -- Events that we want to send to the user code and that
 -- can be reacted upon
 data DayMessage      = DayStarts
+                    deriving (Show, Eq)
 -- Events that we want to send to the user code and that
 -- can NOT be reacted upon
 data NightMessage    = Initialize
                     | NightStarts
+                    deriving (Show, Eq)
 -- Pure bookkeeping events
 data InternalMessage = MyPlayerId Player
                      | Welcome
@@ -43,6 +46,7 @@ data InternalMessage = MyPlayerId Player
                     | GameStarting
                     | MyIdIs Player
                     | PlayerEnter Player Place
+                    deriving (Show, Eq)
 
 
 {- Einzusortieren: