From 900d7f614bef4250046d829264ae0d9ad571494a Mon Sep 17 00:00:00 2001 From: Carlo Zancanaro Date: Sun, 23 Jun 2013 01:56:15 +1000 Subject: Misc changes. --- src/clojure_sql/core.clj | 3 +-- src/clojure_sql/dsl.clj | 11 +---------- 2 files changed, 2 insertions(+), 12 deletions(-) diff --git a/src/clojure_sql/core.clj b/src/clojure_sql/core.clj index 97cee93..63c7128 100644 --- a/src/clojure_sql/core.clj +++ b/src/clojure_sql/core.clj @@ -7,8 +7,7 @@ [clojure-sql.util :as u] [clojure.walk])) - -(defmacro pull [ns & vlist] +(defmacro ^:private pull [ns & vlist] `(do ~@(for [i vlist :let [sym (symbol (name ns) (name i))]] `(def ~(with-meta i diff --git a/src/clojure_sql/dsl.clj b/src/clojure_sql/dsl.clj index 73de216..25ae6f8 100644 --- a/src/clojure_sql/dsl.clj +++ b/src/clojure_sql/dsl.clj @@ -10,15 +10,6 @@ ;; The DSL for making query maps ;; ============================================================== -;; important sections: -;; -PROJECTION- -;; -TABLES- -;; -FILTERS- -;; -SORTING- -;; -GROUPING- -;; -GROUPED FILTERS- - - ;; { ;; :tables => tablename -> table_alias ;; :fields => (table_alias, fieldname) -> field_alias @@ -215,7 +206,7 @@ Valid join types are :cross, :inner, :outer and :full-outer. An outer join is considered a LEFT outer join. To achieve a right outer - join reverse the query arguments. " + join reverse the query arguments." [left right & {:keys [on type]}] (if (= type :right) (join right left :on on :type :left) -- cgit v1.2.3