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/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Hsbot/Utils.hs')

diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs
index 5d5c424..d29345c 100644
--- a/Hsbot/Utils.hs
+++ b/Hsbot/Utils.hs
@@ -48,7 +48,7 @@ hasAccess (Just mask) right =
       | otherwise = False
 
 -- Helpers
-sendStr :: BotEnv -> Handle -> Maybe TLSCtx -> String -> IO ()
+sendStr :: BotEnv -> Handle -> Maybe (TLSCtx Handle) -> String -> IO ()
 sendStr env _ (Just ctx) msg = sendData ctx (L.fromString $ msg ++ "\r\n") `catch` handleIOException env ("sendStr " ++ msg)
 sendStr env handle Nothing msg = hPutStrLn handle (msg ++ "\r\n") `catch` handleIOException env ("sendStr " ++ msg)
 
-- 
cgit v1.2.3