Proper range header for empty result

Fixes #22
2014-08-06 12:30:03 -07:00
parent cb2e421333
commit e58fad9002
1 changed files with 5 additions and 3 deletions
@@ -91,9 +91,11 @@ respondWithRangedResult rr =
  responseLBS status206 [
    json,
    ("Content-Range",
-        (BS.pack . show . rrFrom ) rr <> "-"
-      <> (BS.pack . show . rrTo   ) rr <> "/"
-      <> (BS.pack . show . rrTotal) rr
+      if rrTotal rr == 0
+      then "*/0"
+      else (BS.pack . show . rrFrom ) rr <> "-"
+         <> (BS.pack . show . rrTo   ) rr <> "/"
+         <> (BS.pack . show . rrTotal) rr
    )
  ] (rrBody rr)