UpdateState: psDAy

diff --git a/Partty.hs b/Partty.hs
index 485f6c2..23ef3d5 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -248,6 +248,9 @@ sendClientMessage h msg = do putStrLn $ "Client says: " ++ (show msg)
 -- Bookkeeping
 
 updateState :: IncomingMessage -> ParttyState -> ParttyState
+
+updateState (DayMessage (DayStarts num)) ps = ps {psDay = num}
+
 updateState msg ps = ps -- TODO: this is a stub