From e58fad90026b80fed93cfba02eb5a22f6f649133 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Wed, 6 Aug 2014 12:30:03 -0700
Subject: [PATCH] Proper range header for empty result

Fixes #22
---
 Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/Main.hs b/Main.hs
index cf7596a82..999d17ca0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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)