diff --git a/src/App.hs b/src/App.hs index 6d29b5513..13aed805c 100644 --- a/src/App.hs +++ b/src/App.hs @@ -71,7 +71,7 @@ app req = let (tableTotal, queryTotal, body) = fromMaybe (0, 0, Just "" :: Maybe Text) row from = fromMaybe 0 $ rangeOffset <$> range - to = from+queryTotal + to = from+queryTotal-1 contentRange = contentRangeH from to tableTotal status = rangeStatus from to tableTotal canonical = urlEncodeVars