Now actually working!

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)

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))))))