UpdateState: psDAy
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:02 +0000 (00:21 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:02 +0000 (00:21 +0000)
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