From 4dcc44d878d53be42470905f78da01f2ddec74a2 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Wed, 14 Oct 2020 11:00:20 -0700
Subject: [PATCH] Fix - as operator

Not a great workaround. May rethink depending on what other operators
get added containing `-`.
---
 src/honey/sql.cljc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 0e7c875..2df57d9 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -83,7 +83,8 @@
      :cljs str/upper-case))
 
 (defn sql-kw [k]
-  (-> k (name) (upper-case) (str/replace "-" " ")))
+  (-> k (name) (upper-case)
+      (as-> s (if (= "-" s) s (str/replace s "-" " ")))))
 
 (defn- namespace-_ [x] (some-> (namespace x) (str/replace "-" "_")))
 (defn- name-_      [x] (str/replace (name x) "-" "_"))