From 61cf6eda5a4bfe05f548c90153fe0de50bb10209 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Mon, 28 Sep 2020 11:49:13 -0700
Subject: [PATCH] Add variadic string concatenation ||

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

diff --git a/src/honey/sql.cljc b/src/honey/sql.cljc
index 4a0ed91..1e30c26 100644
--- a/src/honey/sql.cljc
+++ b/src/honey/sql.cljc
@@ -440,7 +440,7 @@
    :regex :regexp})
 
 (def ^:private infix-ops
-  (-> #{"mod" "and" "or" "xor" "<>" "<=" ">="
+  (-> #{"mod" "and" "or" "xor" "<>" "<=" ">=" "||"
         "in" "not-in" "like" "not-like" "regexp"
         "is" "is-not" "not=" "!=" "regex"}
       (into (map str "+-*/%|&^=<>"))
@@ -492,7 +492,7 @@
         (sequential? x)
         (let [op (first x)
               op-ignore-nil #{:and :or}
-              op-variadic   #{:and :or :+ :*}]
+              op-variadic   #{:and :or :+ :* :||}]
           (if (keyword? op)
             (cond (infix-ops op)
                   (if (op-variadic op) ; no aliases here, no special semantics