Change capitalization to fix test suite
commite95e8a021b9cb32ff942cb170f59cac49e0277ab
authorMichael Snoyman <michael@snoyman.com>
dateMon 7 Dec 2015, 10:17 (11 years ago)
parent945632c
warp/Network/Wai/Handler/Warp/File.hs+2−2
@@ -145,7 +145,7 @@ contentRangeHeader beg end total = (
145145#if MIN_VERSION_http_types(0,9,0)
146146 H.hContentRange
147147#else
148− "content-range"
148+ "Content-Range"
149149#endif
150150 , range)
151151 where
@@ -168,7 +168,7 @@ addContentHeaders hs off len size = hs''
168168#if MIN_VERSION_http_types(0,9,0)
169169 H.hAcceptRanges
170170#else
171− "accept-ranges"
171+ "Accept-Ranges"
172172#endif
173173 , "bytes"):hs
174174 hs'' = if len == size then hs' else contentRange:hs'