@@ -30,7 +30,7 @@ import qualified Data.CaseInsensitive as CI
30import Data.Monoid (mconcat, mempty, mappend)
30import Data.Monoid (mconcat, mempty, mappend)
33−import qualified Data.Streaming.ByteString.Builder as Blaze
33+import qualified Data.Streaming.ByteString.Builder as Builder
34import Data.Function (fix)
34import Data.Function (fix)
35import Control.Monad (unless, void)
35import Control.Monad (unless, void)
@@ -131,7 +131,7 @@ runGeneric vars inputH outputH xsendfile app = do
131 return ResponseReceived
131 return ResponseReceived
133 let (s, hs, wb) = responseToStream res
133 let (s, hs, wb) = responseToStream res
134− (blazeRecv, blazeFinish) <- Blaze.newBuilderRecv Blaze.defaultStrategy
134+ (blazeRecv, blazeFinish) <- Builder.newBuilderRecv Builder.defaultStrategy
135 wb $ \b -> do
135 wb $ \b -> do
136 let sendBuilder builder = do
136 let sendBuilder builder = do
137 popper <- blazeRecv builder
137 popper <- blazeRecv builder