DayStart takes an int

diff --git a/DeafAndSilent.hs b/DeafAndSilent.hs
index 0b6574e..de876f6 100644 (file)
--- a/DeafAndSilent.hs
+++ b/DeafAndSilent.hs
@@ -10,7 +10,7 @@ import Partty
 type UserData = Maybe Place
 
 dcb :: DayCallback UserData
-dcb DayStarts = do
+dcb (DayStarts _) = do
        mbp <- get
        room <- case mbp of
                Nothing -> do

diff --git a/Partty.hs b/Partty.hs
index 3406d5e..485f6c2 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -35,7 +35,7 @@ data IncomingMessage = InternalMessage InternalMessage
        
 -- Events that we want to send to the user code and that
 -- can be reacted upon
-data DayMessage      = DayStarts
+data DayMessage      = DayStarts Int
                      | DayEndsIn Int
                      | DayEnds
                     | GotHint Player Hint
@@ -201,7 +201,7 @@ parseIncomingMessage msg = case id of
        23 -> InternalMessage (PlayerLeave s1 int2)
        65 -> InternalMessage (ActionsLeft int1)
 
-       50 -> DayMessage      (DayStarts)
+       50 -> DayMessage      (DayStarts int1)
        51 -> DayMessage      (DayEndsIn int1)
        52 -> DayMessage      (DayEnds)
        24 -> DayMessage      (if int2 == 0 then GotHint s1 (NoPartyAt int3)