projects
/
darcs-mirror-haskell-partty.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2c7f65f
)
Handy access to incoming message args
author
Joachim Breitner
<mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:32 +0000
(22:54 +0000)
committer
Joachim Breitner
<mail@joachim-breitner.de>
Fri, 4 Jul 2008 22:54:32 +0000
(22:54 +0000)
Partty.hs
patch
|
blob
|
history
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)