From 864a364da99a0ec05f08d7cfbad4abde416a0b06 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 24 Apr 2011 23:08:06 +0200
Subject: Some API refactoring.

I can't say how I hate the Types.hs thing in Haskell!
---
 Hsbot/Utils.hs | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'Hsbot/Utils.hs')

diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs
index 6b7f85e..0b32fa6 100644
--- a/Hsbot/Utils.hs
+++ b/Hsbot/Utils.hs
@@ -4,16 +4,13 @@ module Hsbot.Utils
     , first
     , initTLSEnv
     , readCertificate
-    , readMsg
     , readPrivateKey
     , sendStr
     , setGlobalQuitMVar
-    , writeMsg
     ) where
 
 import Control.Concurrent
 import Control.Monad.Reader
-import Control.Monad.State
 import qualified Crypto.Cipher.RSA as RSA
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Char8 as C
@@ -25,8 +22,6 @@ import Data.List
 import Network.TLS
 import System.IO
 
-import Hsbot.Config
-import Hsbot.Message
 import Hsbot.Types
 
 -- utility functions
@@ -53,17 +48,6 @@ sendStr :: Handle -> Maybe TLSCtx -> String -> IO ()
 sendStr _ (Just ctx) msg = sendData ctx $ L.fromChunks [C.pack msg]
 sendStr handle Nothing msg = hPutStrLn handle msg
 
--- Plugin Utils
-readMsg :: Plugin IO (Message)
-readMsg = do
-    chan <- gets pluginChan
-    liftIO $ readChan chan >>= return
-
-writeMsg :: Message -> Plugin IO ()
-writeMsg msg = do
-   chan <- gets pluginMaster
-   liftIO $ writeChan chan msg
-
 -- TLS utils
 initTLSEnv :: TLSConfig -> IO (TLSParams)
 initTLSEnv ssl = do
-- 
cgit v1.2.3