浏览代码

syntax fix on error handling for empty rows

George C. Privon 6 年之前
父节点
当前提交
68814306ad
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      update_proposals.rkt

+ 1 - 1
update_proposals.rkt

@@ -77,7 +77,7 @@
   (write-string (string-append "Updating entry " (number->string ID) "\n"))
   (define entry (query-maybe-row conn "SELECT * FROM proposals WHERE ID=?" ID))
   (cond
-    [((eq? #f entry) (error "Invalid ID. Row not found"))])
+    [(eq? #f entry) (error "Invalid ID. Row not found")])
   (write-string (string-append "Current status is: "
                                (vector-ref entry 9)
                                " ("