xml-conduit parsing for packets inbound from clients

1 files changed, 2 insertions, 1 deletions

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 ()