From 31848e75ca08780772512798e1880dbc0cc61d8d Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Fri, 27 Jul 2018 16:51:08 +0100 Subject: [PATCH] Improved list queries --- src/adl/to_hugsql_queries.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/adl/to_hugsql_queries.clj b/src/adl/to_hugsql_queries.clj index 6331e15..c8fdd85 100644 --- a/src/adl/to_hugsql_queries.clj +++ b/src/adl/to_hugsql_queries.clj @@ -273,7 +273,7 @@ (list (str "-- :name " query-name " " signature) (str "-- :doc lists all existing " pretty-name " records") - (str "SELECT DISTINCT * FROM lv_" entity-name) + (str "SELECT DISTINCT lv_" entity-name ".* FROM lv_" entity-name) (order-by-clause entity "lv_" false) "--~ (if (:offset params) \"OFFSET :offset \")" "--~ (if (:limit params) \"LIMIT :limit\" \"LIMIT 100\")")))}))) @@ -317,7 +317,7 @@ "entity" (list (str "-- :name " query-name " " signature) (str "-- :doc lists all existing " pretty-name " records related to a given " pretty-far) - (str "SELECT * \nFROM lv_" entity-name ", " entity-name) + (str "SELECT lv_" entity-name ".* \nFROM lv_" entity-name ", " entity-name) (str "WHERE lv_" entity-name "." (first (key-names entity)) " = " entity-name "." (first (key-names entity)) "\n\tAND " entity-name "." link-field " = :id")