Fun, fun, offbyone

This commit is contained in:
Joe Nelson
2014-12-06 17:42:21 -08:00
parent ca4138df2a
commit e3d3a07d14
+1 -1
View File
@@ -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