@@ -57,7 +57,7 @@ spec = do
5757 describe "lazyRequestBody" $ do
5858 prop "works" $ \chunks -> do
5959 ref <- newIORef $ map S.pack $ filter (not . null) chunks
60− let req = Request
60+ let req = defaultRequest
6161 { requestBody = atomicModifyIORef ref $ \bss ->
6262 case bss of
6363 [] -> ([], S.empty)
@@ -66,7 +66,7 @@ spec = do
6666 body <- lazyRequestBody req
6767 body `shouldBe` L.fromChunks (map S.pack chunks)
6868 it "is lazy" $ do
69− let req = Request
69+ let req = defaultRequest
7070 { requestBody = error "requestBody"
7171 }
7272 _ <- lazyRequestBody req
@@ -74,7 +74,7 @@ spec = do
7474 describe "strictRequestBody" $ do
7575 prop "works" $ \chunks -> do
7676 ref <- newIORef $ map S.pack $ filter (not . null) chunks
77− let req = Request
77+ let req = defaultRequest
7878 { requestBody = atomicModifyIORef ref $ \bss ->
7979 case bss of
8080 [] -> ([], S.empty)