From d922240e9a28680d48014604576620d7fc5aa605 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 22 Apr 2010 00:05:35 +0200
Subject: Wrote the list plugin command.

---
 Hsbot/IRCPlugin.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Hsbot/IRCPlugin.hs')

diff --git a/Hsbot/IRCPlugin.hs b/Hsbot/IRCPlugin.hs
index 568eb1d..c32d24c 100644
--- a/Hsbot/IRCPlugin.hs
+++ b/Hsbot/IRCPlugin.hs
@@ -1,6 +1,7 @@
 module Hsbot.IRCPlugin
     ( readMsg
     , sendCommand
+    , sendCommandWithRequest
     , sendRegisterCommand
     , sendUnregisterCommand
     , writeMsg
@@ -25,10 +26,13 @@ writeMsg botMsg = do
 
 -- | Commands management
 sendCommand :: String -> String -> String -> IrcPlugin ()
-sendCommand cmd to params = do
+sendCommand cmd to params = sendCommandWithRequest cmd to params Nothing
+
+sendCommandWithRequest :: String -> String -> String -> Maybe IrcMsg -> IrcPlugin ()
+sendCommandWithRequest cmd to params originalRequest = do
     serverChan <- gets instanceServerChan
     from       <- gets instanceName
-    liftIO $ writeChan serverChan $ InternalCmd $ IntCmd cmd from to params Nothing
+    liftIO $ writeChan serverChan $ InternalCmd $ IntCmd cmd from to params originalRequest
 
 sendRegisterCommand :: String -> IrcPlugin ()
 sendRegisterCommand cmd = sendCommand "REGISTER" "CORE" cmd
-- 
cgit v1.2.3