From 81e891b5661f066a96c32e39232d5fd1445efd11 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 28 Jun 2013 00:17:14 -0400
Subject: xml-conduit parsing for packets inbound from clients

---
 Presence/XMPPTypes.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Presence/XMPPTypes.hs')

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index eb5d349e..e3bbfd16 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -11,10 +11,11 @@ import Data.Binary.Builder as B
 import Data.Binary.Put
 import Control.DeepSeq
 import ByteStringOperators
+import SocketLike
 
 class XMPPSession session where
     data XMPPClass session
-    newSession   :: XMPPClass session -> Socket -> Handle -> IO session
+    newSession   :: SocketLike sock => XMPPClass session -> sock -> IO session
     setResource  :: session -> ByteString -> IO ()
     getJID       :: session -> IO JID
     closeSession :: session -> IO ()
-- 
cgit v1.2.3