Handy access to incoming message args
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:32 +0000 (22:54 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:32 +0000 (22:54 +0000)
Partty.hs

index 9bfdaea..7b22669 100644 (file)
--- a/Partty.hs
+++ b/Partty.hs
@@ -180,6 +180,10 @@ parseIncomingMessage msg = case id of
  where (id_s : num_params : rest) = words msg
        id = read id_s
        param_s = take (read num_params) rest
+       s1   = read (param_s !! 0) :: String
+       int1 = read (param_s !! 0) :: Int
+       s2   = read (param_s !! 2) :: String
+       int2 = read (param_s !! 2) :: Int
 
 sendClientMessage :: Handle -> ClientMessage -> IO ()
 sendClientMessage h msg = hPutStrLn h (toString msg)