From: Camil Staps <info@camilstaps.nl>
Date: Thu, 13 Jul 2017 13:41:01 +0000 (+0000)
Subject: Fix notices (only for private messages; channels get privmsg)
X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=commitdiff_plain;h=a5d6131905cd21b8cf87f2157fc7c5d440845eb7

Fix notices (only for private messages; channels get privmsg)
---

diff --git a/cloogleirc.icl b/cloogleirc.icl
index 596f8c4..5d05563 100644
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -173,12 +173,12 @@ Start w
 			| m == "!restart" = (Nothing, w)
 			| m.[0] == '!'
 				# (msgs, w) = realProcess (split " " $ m % (1, size m)) w
-				= (Just $ map (NOTICE recipient) msgs, w)
+				= (Just $ map reply msgs, w)
 			= (Just [], w)
 		where
-			recipient = case (\(CSepList [t:_]) -> t.[0]) t of
-				'#' -> t
-				_   -> CSepList [user.irc_nick]
+			reply = case (\(CSepList [t:_]) -> t.[0]) t of
+				'#' -> PRIVMSG t
+				_   -> NOTICE user.irc_nick
 		process` _ (PING t mt) w = (Just [PONG t mt], w)
 		process` _ _ w = (Just [], w)