diff options
| author | Julien Dessaux | 2011-05-08 14:57:12 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-08 14:57:12 +0200 |
| commit | fa0bf06c910cd71c91d6b3fc50c7394dae668956 (patch) | |
| tree | 2493cb7c34db776a46f9aaf92d18882b3c93e138 /Hsbot | |
| parent | Added duck spawning capabilities, ready to be shot! (diff) | |
| download | hsbot-fa0bf06c910cd71c91d6b3fc50c7394dae668956.tar.gz hsbot-fa0bf06c910cd71c91d6b3fc50c7394dae668956.tar.bz2 hsbot-fa0bf06c910cd71c91d6b3fc50c7394dae668956.zip | |
Added the ability to directly answer /msg.
Diffstat (limited to 'Hsbot')
| -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 () |