git.iko.soy/typeable/wai
on master help sign in
defining hAcceptRanges.
89f70e1Kazu Yamamoto
warp/Network/Wai/Handler/Warp/Response.hs+1−1
compare with master
unifiedsplit
@@ -226,7 +226,7 @@ addLength :: Integer -> H.ResponseHeaders -> H.ResponseHeaders
226addLength cl hdrs = (H.hContentLength, B.pack $ show cl) : hdrs
226addLength cl hdrs = (H.hContentLength, B.pack $ show cl) : hdrs
227
227
228addAccept :: H.ResponseHeaders -> H.ResponseHeaders
228addAccept :: H.ResponseHeaders -> H.ResponseHeaders
229−addAccept = (("Accept-Ranges", "bytes"):)
229+addAccept hdrs = (hAcceptRanges, "bytes") : hdrs
230
230
231addEncodingHeader :: H.ResponseHeaders -> H.ResponseHeaders
231addEncodingHeader :: H.ResponseHeaders -> H.ResponseHeaders
232addEncodingHeader hdrs = (hTransferEncoding, "chunked") : hdrs
232addEncodingHeader hdrs = (hTransferEncoding, "chunked") : hdrs
warp/Network/Wai/Handler/Warp/Types.hs+3
@@ -36,6 +36,9 @@ hTransferEncoding = "Transfer-Encoding"
36hServer :: HeaderName
36hServer :: HeaderName
37hServer = "Server"
37hServer = "Server"
38
38
39+hAcceptRanges :: HeaderName
40+hAcceptRanges = "Accept-Ranges"
41+
39----------------------------------------------------------------
42----------------------------------------------------------------
40
43
41-- | Error types for bad 'Request'.
44-- | Error types for bad 'Request'.