diff options
author | Julien Dessaux | 2011-05-01 15:56:53 +0200 |
---|---|---|
committer | Julien Dessaux | 2011-05-01 15:56:53 +0200 |
commit | bf36db548891057ccdcfb5b4c9366296fc26d7dd (patch) | |
tree | f00f576c508e304e076658c1da01ce2fa403f1f4 /Hsbot/Plugin | |
parent | Added plugin loading, and the most basic hook capability. (diff) | |
download | hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.gz hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.bz2 hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.zip |
Code cleaning.
Diffstat (limited to 'Hsbot/Plugin')
-rw-r--r-- | Hsbot/Plugin/Ping.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Plugin/Ping.hs b/Hsbot/Plugin/Ping.hs index d399ab8..179bcb3 100644 --- a/Hsbot/Plugin/Ping.hs +++ b/Hsbot/Plugin/Ping.hs @@ -24,7 +24,7 @@ thePing = forever $ do where eval :: Message -> Plugin (Env IO) () eval (IncomingMsg msg) - | (IRC.msg_command msg) == "PING" = writeMsg . OutgoingMsg . IRC.Message Nothing "PONG" $ IRC.msg_params msg + | IRC.msg_command msg == "PING" = writeMsg . OutgoingMsg . IRC.Message Nothing "PONG" $ IRC.msg_params msg | otherwise = return () eval _ = return () |