Archived
1
0
Fork 0

Fixed bad comments and some cosmetics

This commit is contained in:
Julien Dessaux 2011-08-08 13:03:31 +02:00
parent 1c8cab09cb
commit 4f50db8409
3 changed files with 6 additions and 5 deletions

View file

@ -11,12 +11,13 @@ import Prelude hiding (catch)
import Hsbot.Message
import Hsbot.Types
-- | The ping plugin identity
ping :: PluginId
ping = PluginId
{ pluginName = "ping"
, pluginEp = thePing }
-- | The IrcPlugin monad main function
-- | An IRC plugin that answer PING requests
thePing :: Plugin (Env IO) ()
thePing = forever $ readMsg >>= eval
where