From 080075628804c90f08f0c2cdc9fa3ef2b06faa10 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Sat, 17 Mar 2018 18:26:00 +0000 Subject: [PATCH] Now actually working! --- src/squirrel_parse/to_hugsql_queries.clj | 2 +- src/squirrel_parse/to_json_routes.clj | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/squirrel_parse/to_hugsql_queries.clj b/src/squirrel_parse/to_hugsql_queries.clj index dacd1f8..ec50e70 100644 --- a/src/squirrel_parse/to_hugsql_queries.clj +++ b/src/squirrel_parse/to_hugsql_queries.clj @@ -250,7 +250,7 @@ :entity entity-map :type :delete-1 :query - (str "-- :name " query-name ":! " signature "\n" + (str "-- :name " query-name " " signature "\n" "-- :doc updates an existing " pretty-name " record\n" "DELETE FROM " entity-name "\n" (where-clause entity-map) diff --git a/src/squirrel_parse/to_json_routes.clj b/src/squirrel_parse/to_json_routes.clj index fe74533..a4eca3a 100644 --- a/src/squirrel_parse/to_json_routes.clj +++ b/src/squirrel_parse/to_json_routes.clj @@ -145,7 +145,7 @@ ".")) :select-many (generate-handler-src - handler-name query :post + handler-name query :get (str "select all records from the " (-> query :entity :attrs :name) " table. If the keys (:limit :offset) are present in the request then they will be used to page through the data. Returns a sequence of maps each containing the following keys: " @@ -177,11 +177,11 @@ (map #(let [handler (handlers-map %)] (list - (s/upper-case (name (:method handler))) + (symbol (s/upper-case (name (:method handler)))) (str "/json/auto/" (:name handler)) 'request - (list - 'route/restricted + (list + 'route/restricted (list (:name handler) 'request)))) (sort (keys handlers-map))))))