Permalink
Browse files

Fix fetch rows again *sigh*

  • Loading branch information...
1 parent 2112ff5 commit db42cc922a0a4165f50cff405aa9c8abf17733b0 @ckeen committed May 22, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 pastiche.scm
View
@@ -177,8 +177,8 @@
method: "post"))))
(define (fetch-paste id)
- (let ((r ($db "select * from pastes where hash=? order by time desc" values: (list id))))
- (and id
+ (and id
+ (let ((r ($db "select * from pastes where hash=? order by time desc" values: (list id))))
(and (not (null? r)) r))))
(define (update-paste id snippet)

0 comments on commit db42cc9

Please sign in to comment.