simon/squirrel-parse
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Now actually working!

Browse source
This commit is contained in:
Simon Brooke 2018-03-17 18:26:00 +00:00
parent df9d12e572
commit 0800756288
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/squirrel_parse/to_hugsql_queries.clj
View file

@ -250,7 +250,7 @@
:entity entity-map :entity entity-map
:type :delete-1 :type :delete-1
:query :query
(str "-- :name " query-name ":! " signature "\n" (str "-- :name " query-name " " signature "\n"
"-- :doc updates an existing " pretty-name " record\n" "-- :doc updates an existing " pretty-name " record\n"
"DELETE FROM " entity-name "\n" "DELETE FROM " entity-name "\n"
(where-clause entity-map) (where-clause entity-map)

8
src/squirrel_parse/to_json_routes.clj
View file

@ -145,7 +145,7 @@
".")) "."))
:select-many :select-many
(generate-handler-src (generate-handler-src
handler-name query :post handler-name query :get
(str "select all records from the " (str "select all records from the "
(-> query :entity :attrs :name) (-> 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: " " 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 (map
#(let [handler (handlers-map %)] #(let [handler (handlers-map %)]
(list (list
(s/upper-case (name (:method handler))) (symbol (s/upper-case (name (:method handler))))
(str "/json/auto/" (:name handler)) (str "/json/auto/" (:name handler))
'request 'request
(list (list
'route/restricted 'route/restricted
(list (:name handler) 'request)))) (list (:name handler) 'request))))
(sort (sort
(keys handlers-map)))))) (keys handlers-map))))))