From 50c8c0801ebc3707dfd86c2bc31a6768110d1821 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Thu, 3 Nov 2011 18:49:43 +0100
Subject: Updated to support the latest version of the tls module.

---
 Hsbot/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Hsbot/Core.hs')

diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs
index 4dc1e92..7f97918 100644
--- a/Hsbot/Core.hs
+++ b/Hsbot/Core.hs
@@ -103,7 +103,7 @@ runHsbot die_msgs = do
         -- TODO : kill plugin threads
         return code
 
-botReader :: BotEnv -> Handle -> Maybe TLSCtx -> Chan Message -> IO ()
+botReader :: BotEnv -> Handle -> Maybe (TLSCtx Handle) -> Chan Message -> IO ()
 botReader env _ (Just ctx) chan = forever $
     fmap L.toString (recvData ctx) `catch` handleIOException env  "botReader died" >>= handleIncomingStr chan
 botReader env handle Nothing chan = forever $
-- 
cgit v1.2.3