From 900d7f614bef4250046d829264ae0d9ad571494a Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@clearboxsystems.com.au>
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