diff options
Diffstat (limited to '')
| -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 () |