Parse: InternalMessage (PlayerJoined s1)
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:43 +0000 (22:54 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:43 +0000 (22:54 +0000)
Partty.hs

index 7b22669..90281d9 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -176,7 +176,8 @@ updateState msg ps = ps -- TODO: this is a stub
 parseIncomingMessage :: String -> IncomingMessage
 parseIncomingMessage msg = case id of
        71 -> InternalMessage (Welcome)
-       _  -> error $ "Unkown or unparseable message " ++ msg
+       20 -> InternalMessage (PlayerJoined s1)
+       _  -> error $ "Unkown or unparseable message:\n" ++ msg
  where (id_s : num_params : rest) = words msg
        id = read id_s
        param_s = take (read num_params) rest