From 12a729a281f1d7407a4f87da590f05524ba51961 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Fri, 27 Jul 2018 12:47:30 +0100
Subject: [PATCH] 'Create' queries need a :? signature if they are to return
 results

---
 src/adl/to_hugsql_queries.clj | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/adl/to_hugsql_queries.clj b/src/adl/to_hugsql_queries.clj
index d2e5104..6331e15 100644
--- a/src/adl/to_hugsql_queries.clj
+++ b/src/adl/to_hugsql_queries.clj
@@ -96,7 +96,10 @@
                                     #(safe-name (:name (:attrs %)) :sql)
                                     (insertable-properties entity))
         query-name (str "create-" pretty-name "!")
-        signature ":! :n"]
+        signature (if (has-primary-key? entity)
+                    ":? :1" ;; bizarrely, if you want to return the keys,
+                            ;; you have to use a query signature.
+                    ":! :n")]
     (hash-map
       (keyword query-name)
       {:name query-name