jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accurate range response headers

Browse Source
This commit is contained in:
Joe Nelson
2014-08-04 22:30:38 -07:00
parent 351b44ed52
commit 81929dd513
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.hs
+4 -2
View File
@@ -91,8 +91,10 @@ respondWithRangedResult rr =
responseLBS status206 [
json,
("Content-Range",
"0-" <> (BS.pack . show . rrTo) rr <> "/"
<> (BS.pack . show . rrTotal) rr)
(BS.pack . show . rrFrom ) rr <> "-"
<> (BS.pack . show . rrTo ) rr <> "/"
<> (BS.pack . show . rrTotal) rr
)
] (rrBody rr)
where