diff options
| author | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-06-16 00:36:36 +1000 |
|---|---|---|
| committer | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-06-16 00:36:36 +1000 |
| commit | 82aa383a9c0f9d9d921135a10e919125d9115924 (patch) | |
| tree | df23a2361b48688147b0dc075d464dcff9972f50 /src/clojure_sql/util.clj | |
| parent | 148f752b5f48707dc3d7fe448d1faf33d5cd0228 (diff) | |
Bring the DSL back up to previous features, fix the compiler
It should generally be usable at this point. It should generate the queries
correctly (including join order and stuff) and approximately properly do
things. The type of join stuff still hasn't been finished, but if the code were
left as-is it would still be possible to get whatever you wanted out of it, I
think.
Basically: lots of work has been done and we're approaching something more
usable.
Diffstat (limited to 'src/clojure_sql/util.clj')
| -rw-r--r-- | src/clojure_sql/util.clj | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/clojure_sql/util.clj b/src/clojure_sql/util.clj index f2edf30..3dfe948 100644 --- a/src/clojure_sql/util.clj +++ b/src/clojure_sql/util.clj @@ -24,3 +24,6 @@ (apply map-kv (fn [k & vs] [k (apply f vs)]) maps)) + +(defn named? [x] + (some #(% x) [keyword? string? symbol?])) |