From: Mart Lubbers <mart@martlubbers.net>
Date: Sun, 5 Mar 2017 14:25:28 +0000 (+0100)
Subject: improve help
X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=commitdiff_plain;h=a363883e1dc5a15211498b2310019507bad1a3e2

improve help
---

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