bug
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 11:59:22 +0000 (11:59 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 5 Jul 2008 11:59:22 +0000 (11:59 +0000)
Partty.hs

index 4b4dd5e..7102a66 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -337,7 +337,7 @@ updateState (InternalMessage (MyIdIs myId)) ps =
 updateState msg ps = ps -- TODO: this is a stub
 
 updateStateC :: ClientMessage -> ParttyState -> ParttyState
-updateStateC _ ps = {psActionsLeft = psActionsLeft ps - 1}
+updateStateC _ ps = ps {psActionsLeft = psActionsLeft ps - 1}
 
 -- Convenience functions for accessing the state