Sfoglia il codice sorgente

syntax fix on error handling for empty rows

George C. Privon 6 anni fa
parent
commit
68814306ad
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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)
                                " ("