summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
authorJulien Dessaux2011-05-01 15:56:53 +0200
committerJulien Dessaux2011-05-01 15:56:53 +0200
commitbf36db548891057ccdcfb5b4c9366296fc26d7dd (patch)
treef00f576c508e304e076658c1da01ce2fa403f1f4 /Hsbot/Plugin
parentAdded plugin loading, and the most basic hook capability. (diff)
downloadhsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.gz
hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.bz2
hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.zip
Code cleaning.
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Ping.hs2
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 ()