use a for loop

bit more readable
This commit is contained in:
Mike Blume 2015-01-27 15:54:35 -08:00
parent 3b74d14e32
commit f410aed5a1

View file

@ -20,8 +20,12 @@
(qualify :foo \"bar\" :baz) => :foo.bar.baz"
[& qualifiers+name]
(keyword
(string/join "." (map #(if (keyword? %) (name %) (str %))
(remove nil? qualifiers+name)))))
(string/join "."
(for [s qualifiers+name
:when (not (nil? s))]
(if (keyword? s)
(name s)
(str s))))))
(defn build
"Takes a series of clause+data pairs and returns a SQL map. Example: