projects
/
darcs-mirror-haskell-partty.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
87d676f
)
UpdateState: psDAy
author
Joachim Breitner
<mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:02 +0000
(
00:21
+0000)
committer
Joachim Breitner
<mail@joachim-breitner.de>
Sat, 5 Jul 2008 00:21:02 +0000
(
00:21
+0000)
Partty.hs
patch
|
blob
|
history
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