summaryrefslogtreecommitdiff
path: root/Hsbot/Plugin
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Hsbot/Plugin/Ping.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/Hsbot/Plugin/Ping.hs b/Hsbot/Plugin/Ping.hs
index 54ba396..6d28ef9 100644
--- a/Hsbot/Plugin/Ping.hs
+++ b/Hsbot/Plugin/Ping.hs
@@ -18,9 +18,7 @@ ping = PluginId
-- | The IrcPlugin monad main function
thePing :: Plugin (Env IO) ()
-thePing = forever $ do
- msg <- readMsg
- eval msg
+thePing = forever $ readMsg >>= eval
where
eval :: Message -> Plugin (Env IO) ()
eval (IncomingMsg msg)