Accurate range response headers

2014-08-04 22:30:38 -07:00
parent 351b44ed52
commit 81929dd513
2 changed files with 9 additions and 3 deletions
@@ -41,9 +41,13 @@ getRows schema table qq range conn = do

  return $ case r of
           [[total, limited_total, json]] ->
-            RangedResult 0 (fromSql limited_total) (fromSql total) (fromSql json)
+            RangedResult offset (offset + fromSql limited_total - 1)
+                         (fromSql total) (fromSql json)
           _ -> RangedResult 0 0 0 ""

+  where
+    offset = fromMaybe 0 $ R.offset <$> range
+
 whereClause :: Net.Query -> QuotedSql
 whereClause qs =
  if null qs then ("", []) else (" where ", []) <> conjunction