redis-list-range includes the last element as well so substract 1 fro…

…m the "to" value in the "browse pastes" page
ckeen · Jun 1, 2011 · 8342542 · 8342542
1 parent e5561b7
commit 8342542
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pastiche.scm b/pastiche.scm
@@ -117,7 +117,7 @@
       (reverse
        (map (lambda (p)
               (deserialize (redis-list-ref (redis-connection) (car p) (cdr p))))
-            (map deserialize (redis-list-range (redis-connection) 'pastes from to)))))
+            (map deserialize (redis-list-range (redis-connection) 'pastes from (- to 1))))))
 
     (define (make-post-table n #!optional (from 0))
       (define (format-row r)