Huh, unsere ID ändert sich ja
[darcs-mirror-haskell-partty.git] / Partty.hs
index 6ef8381..12d350c 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -329,6 +329,9 @@ updateState (InternalMessage (PlayerLeft player) ) ps =
 updateState (InternalMessage (ActionsLeft n)) ps =
        ps {psActionsLeft = n }
 
+updateState (InternalMessage (MyIdIs myId)) ps = 
+       ps {psMyName = myId}
+
 updateState msg ps = ps -- TODO: this is a stub
 
 -- Convenience functions for accessing the state