From 6fb569170aca43bf17a5e223544c0a5ef0b42fb6 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Sun, 5 Mar 2017 15:32:33 +0100 Subject: [PATCH] log pongs --- cloogle.icl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/cloogle.icl b/cloogle.icl index a2735bb..f124925 100644 --- a/cloogle.icl +++ b/cloogle.icl @@ -52,13 +52,13 @@ process io chan w #! io = io <<< ("Received command: " +++ printToString cmd +++ "\n") # toSend = case cmd of ["stop":_] = Nothing - ["ping":_] = Just [msg "pong"] + ["ping":xs] = Just [msg $ "pong " +++ join " " xs] ["help"] = Just [msg "type !help cmd for command specific help" ,msg "available commands: help, ping"] ["help":c:_] = case c of - "help" = Just [msg "I will print help text"] - "ping" = Just [msg "I will reply with pong"] + "help" = Just [msg "help [CMD] - I will print general help or the help of CMD"] + "ping" = Just [msg "ping [TXT] - I will reply with pong and the optionar TXT"] _ = Just [msg "Unknown command"] [c:_] = Just [msg $ join " " ["unknown command: " , c, ", type !help to get help"]] | isNothing toSend = (io, chan, w) @@ -66,6 +66,7 @@ process io chan w = process io chan w | indexOf "PING :" resp > 0 # cmd = rtrim $ subString (indexOf "PING :" resp + size "PING :") (size resp) resp + #! io <<< (toString $ PONG cmd Nothing) <<< "\n" # (chan, w) = send [toString $ PONG cmd Nothing] chan w = process io chan w = process io chan w -- 2.20.1