From a5d6131905cd21b8cf87f2157fc7c5d440845eb7 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 13 Jul 2017 13:41:01 +0000 Subject: [PATCH] Fix notices (only for private messages; channels get privmsg) --- cloogleirc.icl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.20.1