@@ -37,6 +37,7 @@ import System.Directory (removeFile, getTemporaryDirectory)
37import System.IO (hClose, openBinaryTempFile)
37import System.IO (hClose, openBinaryTempFile)
38import Network.Wai
38import Network.Wai
39import Data.Conduit
39import Data.Conduit
40+import Data.Conduit.Internal (sinkToPipe)
40import qualified Data.Conduit.List as CL
41import qualified Data.Conduit.List as CL
41import qualified Data.Conduit.Binary as CB
42import qualified Data.Conduit.Binary as CB
42import Control.Monad.IO.Class (liftIO)
43import Control.Monad.IO.Class (liftIO)