diff options
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Message.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs index d6697cd..825a649 100644 --- a/Hsbot/Message.hs +++ b/Hsbot/Message.hs @@ -18,8 +18,9 @@ writeMsg :: Message -> Plugin (Env IO) () writeMsg msg = asks pluginMaster >>= liftIO . flip writeChan msg answerMsg :: IRC.Message -> String -> Plugin (Env IO) () -answerMsg request msg = - case IRC.msg_params request of - sender:_ -> writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [sender, msg] - [] -> return () +answerMsg _ [] = return () +answerMsg (IRC.Message (Just (IRC.NickName nick _ _)) _ (channel:_)) msg + | head channel == '#' = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [channel, msg] + | otherwise = writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [nick, msg] +answerMsg _ _ = return () |