adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Improving a bit the Ping module's code.

Browse source
This commit is contained in:
Julien Dessaux 2011-05-10 23:21:50 +02:00
parent aba484db54
commit 91f9db5be7
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Hsbot/Plugin/Ping.hs
View file

@ -18,9 +18,7 @@ ping = PluginId
-- | The IrcPlugin monad main function -- | The IrcPlugin monad main function
thePing :: Plugin (Env IO) () thePing :: Plugin (Env IO) ()
thePing = forever $ do thePing = forever $ readMsg >>= eval
msg <- readMsg
eval msg
where where
eval :: Message -> Plugin (Env IO) () eval :: Message -> Plugin (Env IO) ()
eval (IncomingMsg msg) eval (IncomingMsg msg)