X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogleirc.icl;h=5d05563ddd50c5532749fc6fe8da6ddbddd3dc99;hp=596f8c47e06c1e7b67707aa2b8a20b006004e4d3;hb=a5d6131905cd21b8cf87f2157fc7c5d440845eb7;hpb=4a29715c070017ab3652a259c36ea3d5fbc7b7a9 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)