repositories
/
cloogle-irc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
better code, ping response
[cloogle-irc.git]
/
cloogle.icl
diff --git
a/cloogle.icl
b/cloogle.icl
index
f933b2b
..
27001f1
100644
(file)
--- a/
cloogle.icl
+++ b/
cloogle.icl
@@
-48,7
+48,7
@@
process io chan w
#! io = io <<< ("Received: " +++ resp +++ "\n")
# ind = indexOf KEY resp
| ind > 0
#! io = io <<< ("Received: " +++ resp +++ "\n")
# ind = indexOf KEY resp
| ind > 0
- # cmd = split " " $ rtrim $ subString (ind + size KEY) (size resp
- ind
) resp
+ # cmd = split " " $ rtrim $ subString (ind + size KEY) (size resp) resp
#! io = io <<< ("Received command: " +++ printToString cmd +++ "\n")
# toSend = case cmd of
["stop":_] = Nothing
#! io = io <<< ("Received command: " +++ printToString cmd +++ "\n")
# toSend = case cmd of
["stop":_] = Nothing
@@
-58,6
+58,10
@@
process io chan w
| isNothing toSend = (io, chan, w)
# (chan, w) = send (map toString $ fromJust toSend) chan w
= process io chan w
| isNothing toSend = (io, chan, w)
# (chan, w) = send (map toString $ fromJust toSend) chan w
= process io chan w
+| indexOf "PING :" resp > 0
+ # cmd = rtrim $ subString (indexOf "PING :" resp + size "PING :") (size resp) resp
+ # (chan, w) = send [toString $ PONG cmd Nothing] chan w
+ = process io chan w
= process io chan w
Start :: *World -> *World
= process io chan w
Start :: *World -> *World