From a363883e1dc5a15211498b2310019507bad1a3e2 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Sun, 5 Mar 2017 15:25:28 +0100 Subject: [PATCH] improve help --- cloogle.icl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/cloogle.icl b/cloogle.icl index 27001f1..a2735bb 100644 --- a/cloogle.icl +++ b/cloogle.icl @@ -53,7 +53,13 @@ process io chan w # toSend = case cmd of ["stop":_] = Nothing ["ping":_] = Just [msg "pong"] - ["help":_] = Just [msg "not implemented yet"] + ["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"] + _ = Just [msg "Unknown command"] [c:_] = Just [msg $ join " " ["unknown command: " , c, ", type !help to get help"]] | isNothing toSend = (io, chan, w) # (chan, w) = send (map toString $ fromJust toSend) chan w -- 2.20.1