Handy access to incoming message args

diff --git a/Partty.hs b/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)