Prechádzať zdrojové kódy

syntax fix on error handling for empty rows

George C. Privon 6 rokov pred
rodič
commit
68814306ad
1 zmenil súbory, kde vykonal 1 pridanie a 1 odobranie
  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)
                                " ("