diff options
| author | Julien Dessaux | 2011-05-01 15:56:53 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2011-05-01 15:56:53 +0200 |
| commit | bf36db548891057ccdcfb5b4c9366296fc26d7dd (patch) | |
| tree | f00f576c508e304e076658c1da01ce2fa403f1f4 /Hsbot/Message.hs | |
| parent | Added plugin loading, and the most basic hook capability. (diff) | |
| download | hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.gz hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.tar.bz2 hsbot-bf36db548891057ccdcfb5b4c9366296fc26d7dd.zip | |
Code cleaning.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Message.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs index 133ff92..1382098 100644 --- a/Hsbot/Message.hs +++ b/Hsbot/Message.hs @@ -11,8 +11,8 @@ import qualified Network.IRC as IRC import Hsbot.Types -- Plugin Utils -readMsg :: Plugin (Env IO) (Message) -readMsg = gets pluginChan >>= liftIO . readChan >>= return +readMsg :: Plugin (Env IO) Message +readMsg = gets pluginChan >>= liftIO . readChan writeMsg :: Message -> Plugin (Env IO) () writeMsg msg = gets pluginMaster >>= liftIO . flip writeChan msg |