From 15ace00e49400043f6e4d45b329e7d783c74f9d3 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Fri, 9 Oct 2020 23:58:38 -0700
Subject: [PATCH] Fix string alias (should quote)

---
 src/honey/sql.cljc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 06f06a7..5ebaf27 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -86,7 +86,9 @@
   (-> k (name) (upper-case) (str/replace "-" " ")))
 
 (defn- format-entity [x & [{:keys [aliased? drop-ns?]}]]
-  (let [q     (if *quoted* (:quote *dialect*) identity)
+  (let [q     (if (or *quoted* (string? x))
+                (:quote *dialect*)
+                identity)
         [t c] (if-let [n (when-not (or drop-ns? (string? x))
                            (namespace x))]
                 [n (name x)]