@@ -91,7 +91,9 @@ respondWithRangedResult rr =
|
|||||||
responseLBS status206 [
|
responseLBS status206 [
|
||||||
json,
|
json,
|
||||||
("Content-Range",
|
("Content-Range",
|
||||||
(BS.pack . show . rrFrom ) rr <> "-"
|
if rrTotal rr == 0
|
||||||
|
then "*/0"
|
||||||
|
else (BS.pack . show . rrFrom ) rr <> "-"
|
||||||
<> (BS.pack . show . rrTo ) rr <> "/"
|
<> (BS.pack . show . rrTo ) rr <> "/"
|
||||||
<> (BS.pack . show . rrTotal) rr
|
<> (BS.pack . show . rrTotal) rr
|
||||||
)
|
)
|
||||||
|
|||||||
Reference in New Issue
Block a user