diff options
| -rw-r--r-- | Hsbot/Plugin/Ping.hs | 4 |
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) |