From c497b24700eeea4269e4d76559e8023284a0a213 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 1 May 2011 03:11:32 +0200
Subject: Added plugin loading, and the most basic hook capability.

---
 Hsbot/Message.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Hsbot/Message.hs')

diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs
index e95c3e7..133ff92 100644
--- a/Hsbot/Message.hs
+++ b/Hsbot/Message.hs
@@ -11,13 +11,13 @@ import qualified Network.IRC as IRC
 import Hsbot.Types
 
 -- Plugin Utils
-readMsg :: Plugin IO (Message)
+readMsg :: Plugin (Env IO) (Message)
 readMsg = gets pluginChan >>= liftIO . readChan >>= return
 
-writeMsg :: Message -> Plugin IO ()
+writeMsg :: Message -> Plugin (Env IO) ()
 writeMsg msg = gets pluginMaster >>= liftIO . flip writeChan msg
 
-answerMsg :: IRC.Message -> String -> Plugin IO ()
+answerMsg :: IRC.Message -> String -> Plugin (Env IO) ()
 answerMsg request msg =
     case IRC.msg_params request of
         sender:_ -> writeMsg . OutgoingMsg $ IRC.Message Nothing "PRIVMSG" [sender, msg]
-- 
cgit v1.2.3