@@ -181,9 +181,9 @@ addContentHeaders ths off len size
181181-- |
182182--
183183-- >>> addContentHeadersForFilePart [] (FilePart 2 10 16)
184−-- [("Content-Range","bytes 2-11/16"),("Content-Length","10"),("Accept-Ranges","bytes")]
184+-- [(Token {ix = 20, shouldBeIndexed = True, isPseudo = False, tokenKey = "Content-Range"},"bytes 2-11/16"),(Token {ix = 18, shouldBeIndexed = False, isPseudo = False, tokenKey = "Content-Length"},"10"),(Token {ix = 8, shouldBeIndexed = True, isPseudo = False, tokenKey = "Accept-Ranges"},"bytes")]
185185-- >>> addContentHeadersForFilePart [] (FilePart 0 16 16)
186−-- [("Content-Length","16"),("Accept-Ranges","bytes")]
186+-- [(Token {ix = 18, shouldBeIndexed = False, isPseudo = False, tokenKey = "Content-Length"},"16"),(Token {ix = 8, shouldBeIndexed = True, isPseudo = False, tokenKey = "Accept-Ranges"},"bytes")]
187187addContentHeadersForFilePart :: TokenHeaderList -> FilePart -> TokenHeaderList
188188addContentHeadersForFilePart hs part = addContentHeaders hs off len size
189189 where