From: dopefishh <mart@martlubbers.net>
Date: Tue, 18 Jul 2017 12:28:58 +0000 (+0200)
Subject: Merge pull request #11 from clean-cloogle/ctcp-ping
X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=commitdiff_plain;h=ad2130683cbdb41ca29581e366ef19ca758eb95a;hp=a7d6a92bc84d9b769c50106d2353012861b05a85

Merge pull request #11 from clean-cloogle/ctcp-ping

Add CTCP ping
---

diff --git a/cloogleirc.icl b/cloogleirc.icl
index 5d05563..980ea11 100644
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -174,6 +174,7 @@ Start w
 			| m.[0] == '!'
 				# (msgs, w) = realProcess (split " " $ m % (1, size m)) w
 				= (Just $ map reply msgs, w)
+			| m % (0,4) == "\001PING" = (Just [reply m], w)
 			= (Just [], w)
 		where
 			reply = case (\(CSepList [t:_]) -> t.[0]) t of