@@ -30,7 +30,7 @@ import qualified Data.CaseInsensitive as CI
3030import Data.Monoid (mconcat, mempty, mappend)
3131#endif
3232
33−import qualified Data.Streaming.ByteString.Builder as Blaze
33+import qualified Data.Streaming.ByteString.Builder as Builder
3434import Data.Function (fix)
3535import Control.Monad (unless, void)
3636
@@ -131,7 +131,7 @@ runGeneric vars inputH outputH xsendfile app = do
131131 return ResponseReceived
132132 _ -> do
133133 let (s, hs, wb) = responseToStream res
134− (blazeRecv, blazeFinish) <- Blaze.newBuilderRecv Blaze.defaultStrategy
134+ (blazeRecv, blazeFinish) <- Builder.newBuilderRecv Builder.defaultStrategy
135135 wb $ \b -> do
136136 let sendBuilder builder = do
137137 popper <- blazeRecv builder