@@ -55,6 +55,8 @@ import Control.Monad.Trans.Resource (allocate, release, register)
55#if MIN_VERSION_conduit(1, 0, 0)
55#if MIN_VERSION_conduit(1, 0, 0)
56import Data.Conduit.Internal (Pipe (NeedInput, HaveOutput), (>+>), withUpstream, injectLeftovers, ConduitM (..))
56import Data.Conduit.Internal (Pipe (NeedInput, HaveOutput), (>+>), withUpstream, injectLeftovers, ConduitM (..))
57import Data.Void (Void)
57import Data.Void (Void)
59+import Data.Conduit.Internal (sinkToPipe)
60breakDiscard :: Word8 -> S.ByteString -> (S.ByteString, S.ByteString)
62breakDiscard :: Word8 -> S.ByteString -> (S.ByteString, S.ByteString)