Преглед на файлове

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)
                                " ("