Test for no results case

2014-09-07 11:02:43 -07:00
parent 63e3d69f4d
commit db7ccda74d
2 changed files with 13 additions and 2 deletions
@@ -111,7 +111,9 @@ respondWithRangedResult rr =
    from   = rrFrom rr
    to     = rrTo   rr
    total  = rrTotal rr
-    status = if (1 + to - from) < total then status206 else status200
+    status = if total == 0 then status204
+             else if (1 + to - from) < total then status206
+             else status200

 requestedVersion :: RequestHeaders -> Maybe Int
 requestedVersion hdrs =