git.iko.soy/typeable/wai
on master help sign in
defining hAcceptRanges.
commit89f70e1453e695cd99353ba978da812b3b231221 authorKazu Yamamoto <kazu@iij.ad.jp> dateWed 30 Oct 2013, 12:04 (13 years ago) parentebe1b0f
2 files changed+4−1
compare with master
unifiedsplit
warp/Network/Wai/Handler/Warp/Response.hs+1−1 warp/Network/Wai/Handler/Warp/Types.hs+3
warp/Network/Wai/Handler/Warp/Response.hs+1−1
@@ -226,7 +226,7 @@ addLength :: Integer -> H.ResponseHeaders -> H.ResponseHeaders
226226addLength cl hdrs = (H.hContentLength, B.pack $ show cl) : hdrs
227227
228228addAccept :: H.ResponseHeaders -> H.ResponseHeaders
229−addAccept = (("Accept-Ranges", "bytes"):)
229+addAccept hdrs = (hAcceptRanges, "bytes") : hdrs
230230
231231addEncodingHeader :: H.ResponseHeaders -> H.ResponseHeaders
232232addEncodingHeader hdrs = (hTransferEncoding, "chunked") : hdrs
warp/Network/Wai/Handler/Warp/Types.hs+3
@@ -36,6 +36,9 @@ hTransferEncoding = "Transfer-Encoding"
3636hServer :: HeaderName
3737hServer = "Server"
3838
39+hAcceptRanges :: HeaderName
40+hAcceptRanges = "Accept-Ranges"
41+
3942----------------------------------------------------------------
4043
4144-- | Error types for bad 'Request'.