port to conduit>1.2

fixes GH issue pontarius#81
astro · May 22, 2015 · f95b5de · f95b5de
1 parent 6fd9d38
commit f95b5de
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/pontarius-xmpp.cabal b/pontarius-xmpp.cabal
@@ -40,7 +40,7 @@ Library
                , base                 >4 && <5
                , base64-bytestring    >=0.1.0.0
                , binary               >=0.4.1
-               , conduit              >=1.0.1 && < 1.2
+               , conduit              >=1.2.4.2 && < 1.3
                , containers           >=0.4.0.0
                , crypto-api           >=0.9
                , crypto-random        >=0.0.5

diff --git a/source/Network/Xmpp/Stream.hs b/source/Network/Xmpp/Stream.hs
@@ -21,7 +21,7 @@ import           Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
 import qualified Data.ByteString.Char8 as BSC8
 import           Data.Char (isSpace)
-import           Data.Conduit
+import           Data.Conduit hiding (connect)
 import qualified Data.Conduit.Internal as DCI
 import qualified Data.Conduit.List as CL
 import           Data.IP
@@ -260,7 +260,7 @@ sourceStreamHandle s = loopRead $ streamReceive s
 bufferSrc :: Source (ErrorT XmppFailure IO) o
           -> IO (ConduitM i o (ErrorT XmppFailure IO) ())
 bufferSrc src = do
-    ref <- newTMVarIO $ DCI.ResumableSource src (return ())
+    ref <- newTMVarIO $ DCI.newResumableSource src
     let go = do
             dt <- liftIO $ Ex.bracketOnError
                       (atomically $ takeTMVar ref)
@@ -281,7 +281,7 @@ bufferSrc src = do
                 Right (Just d) -> yield d >> go
     return go
   where
-    zeroResumableSource = DCI.ResumableSource zeroSource (return ())
+    zeroResumableSource = DCI.newResumableSource zeroSource
 
 -- Reads the (partial) stream:stream and the server features from the stream.
 -- Returns the (unvalidated) stream attributes, the unparsed element, or