Don't serve content-length for 416 responses #346
commitf006383c77caeaaf83e26f22f9789f64744d13a8
authorMichael Snoyman <michael@snoyman.com>
dateSun 8 Mar 2015, 08:57 (12 years ago)
parentf1f658b
warp/ChangeLog.md+1
@@ -1,6 +1,7 @@
11## 3.0.9.3
22
33* Don't serve a 416 status code for 0-length files [keter issue #75](https://github.com/snoyberg/keter/issues/75)
4+* Don't serve content-length for 416 responses [#346](https://github.com/yesodweb/wai/issues/346)
45
56## 3.0.9.2
67
warp/Network/Wai/Handler/Warp/Response.hs+3−1
@@ -230,7 +230,9 @@ sendRsp conn ver s0 hs0 (RspFile path mPart mRange hook) = do
230230 lheader <- composeHeader ver s hs1
231231 connSendFile conn path beg len hook [lheader]
232232 | otherwise -> do
233− sendRsp conn ver H.status416 hs1 (RspBuilder mempty True)
233+ sendRsp conn ver H.status416
234+ (filter (\(k, _) -> k /= "content-length") hs1)
235+ (RspBuilder mempty True)
234236 where
235237 hs = addAcceptRanges hs0
236238 s2 = H.status404