warp 3.0.12 → 3.0.12.1

raw patch · 3 files changed

+8/−3 lines, 3 files

Files

ChangeLog.md +4/−0
Network/Wai/Handler/Warp/Response.hs +3/−2
warp.cabal +1/−1

ChangeLog.md view

@@ -1,3 +1,7 @@+## 3.0.12.1++* Fix for: HEAD requests returning non-empty entity body [#369](https://github.com/yesodweb/wai/issues/369)+ ## 3.0.12  * Only conditionally produce HTTP 100 Continue

Network/Wai/Handler/Warp/Response.hs view

@@ -192,8 +192,9 @@     dc = dateCacher ii     addServerAndDate = addDate dc rspidxhdr . addServer defServer rspidxhdr     mRange = reqidxhdr ! idxRange-    reqinfo@(isPersist,_) = infoFromRequest req reqidxhdr-    (isKeepAlive, needsChunked) = infoFromResponse rspidxhdr reqinfo+    (isPersist,isChunked0) = infoFromRequest req reqidxhdr+    isChunked = if isHead then False else isChunked0+    (isKeepAlive, needsChunked) = infoFromResponse rspidxhdr (isPersist,isChunked)     isHead = requestMethod req == H.methodHead     rsp = case response of         ResponseFile _ _ path mPart -> RspFile path mPart mRange isHead (T.tickle th)

warp.cabal view

@@ -1,5 +1,5 @@ Name:                warp-Version:             3.0.12+Version:             3.0.12.1 Synopsis:            A fast, light-weight web server for WAI applications. License:             MIT License-file:        LICENSE