@@ -67,7 +67,6 @@ spec = do
6767 stripFunnyHeaders (responseBody r) `shouldBe` object
6868 [ "headers" .= object
6969 [ "Accept-Encoding" .= ("gzip" :: Text)
70− , "Connection" .= ("close" :: Text)
7170 , "Foo" .= ("bar" :: Text)
7271 , "Baz" .= ("quux" :: Text)
7372 , "Host" .= ("httpbin.org" :: Text) ] ]
@@ -82,7 +81,6 @@ spec = do
8281 , "url" .= ("https://httpbin.org/get" :: Text)
8382 , "headers" .= object
8483 [ "Accept-Encoding" .= ("gzip" :: Text)
85− , "Connection" .= ("close" :: Text)
8684 , "Host" .= ("httpbin.org" :: Text) ] ]
8785 responseHeader r "Content-Type" `shouldBe` return "application/json"
8886 responseStatusCode r `shouldBe` 200
@@ -101,7 +99,6 @@ spec = do
10199 , "headers" .= object
102100 [ "Content-Type" .= ("application/json; charset=utf-8" :: Text)
103101 , "Accept-Encoding" .= ("gzip" :: Text)
104− , "Connection" .= ("close" :: Text)
105102 , "Host" .= ("httpbin.org" :: Text)
106103 , "Content-Length" .= show (T.length reflected) ]
107104 , "files" .= emptyObject
@@ -125,7 +122,6 @@ spec = do
125122 , "headers" .= object
126123 [ "Content-Type" .= T.decodeUtf8 contentType
127124 , "Accept-Encoding" .= ("gzip" :: Text)
128− , "Connection" .= ("close" :: Text)
129125 , "Host" .= ("httpbin.org" :: Text)
130126 , "Content-Length" .= ("242" :: Text)
131127 ]
@@ -151,7 +147,6 @@ spec = do
151147 , "url" .= ("https://httpbin.org/patch" :: Text)
152148 , "headers" .= object
153149 [ "Accept-Encoding" .= ("gzip" :: Text)
154− , "Connection" .= ("close" :: Text)
155150 , "Host" .= ("httpbin.org" :: Text)
156151 , "Content-Length" .= show (T.length contents) ]
157152 , "files" .= emptyObject
@@ -174,7 +169,6 @@ spec = do
174169 , "headers" .= object
175170 [ "Content-Type" .= ("application/x-www-form-urlencoded" :: Text)
176171 , "Accept-Encoding" .= ("gzip" :: Text)
177− , "Connection" .= ("close" :: Text)
178172 , "Host" .= ("httpbin.org" :: Text)
179173 , "Content-Length" .= ("18" :: Text) ]
180174 , "files" .= emptyObject
@@ -352,7 +346,6 @@ stripFunnyHeaders (Object m) =
352346 f value = value
353347 hs = [ "Content-Type"
354348 , "Accept-Encoding"
355− , "Connection"
356349 , "Host"
357350 , "Content-Length"
358351 , "Foo"