fixed db queries

frameworks/Clojure/luminus/hello/resources/sql/queries.sql

@@ -10,5 +10,6 @@ SELECT * FROM fortune
 -- :name update-world<! :<!
 -- update an existing world record
 UPDATE world
-SET randomNumber = :randomNumber
+SET "randomNumber" = :randomNumber
 WHERE id = :id
+RETURNING id

frameworks/Clojure/luminus/hello/src/clj/hello/db/core.clj

@@ -113,5 +113,3 @@
     (let [updated-world (assoc world :randomNumber (inc (rand-int 9999)))]
       (update-world<! updated-world)
       updated-world)))
-
-

frameworks/Clojure/luminus/hello/src/clj/hello/routes/home.clj

@@ -18,13 +18,14 @@
 (defn single-query-test
   "Test 2: Single database query"
   []
-  (-> 1 db/run-queries first response/ok))
+  (-> 1 db/run-queries generate-string response/ok))
 
 (defn multiple-query-test
   "Test 3: Multiple database query"
   [queries]
   (-> queries
       db/run-queries
+      generate-string
       response/ok))
 
 (defn fortunes
@@ -37,6 +38,7 @@
   [queries]
   (-> queries
       db/update-and-persist
+      generate-string
       response/ok))
 
 (def plaintext
@@ -51,9 +53,9 @@
 
 (defroutes default-routes
   (GET "/"                 [] "Hello, World!")
-  (GET "/db"               [] (single-query-test))
-  (GET "/queries/"         [] (multiple-query-test 1))
+  (GET "/db"               []        (single-query-test))
+  (GET "/queries/"         []        (multiple-query-test 1))
   (GET "/queries/:queries" [queries] (multiple-query-test queries))
-  (GET "/fortunes"         [] (fortunes))
-  (GET "/updates/"         [] (db-update 1))
+  (GET "/fortunes"         []        (fortunes))
+  (GET "/updates/"         []        (db-update 1))
   (GET "/updates/:queries" [queries] (db-update queries)))