summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-05-15 17:23:02 +1000
committerCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-05-15 17:23:02 +1000
commitcc7977c6319a8e20eebb0958d08e287b9f489b2a (patch)
tree3ceae3e671d62e0ebd9e6c74023fc174e424a9d5
parent318dcc01c54893aa58a4960638f2aa74fe36921e (diff)
Remove two bits of code that were lying around from experimenting
-rw-r--r--src/clojure_sql/core.clj16
1 files changed, 0 insertions, 16 deletions
diff --git a/src/clojure_sql/core.clj b/src/clojure_sql/core.clj
index 89d218e..5d871c7 100644
--- a/src/clojure_sql/core.clj
+++ b/src/clojure_sql/core.clj
@@ -343,22 +343,6 @@
(:joins right)))
(assoc :where (combine-wheres (:where left) (:where right))))))
-(-> (join (-> (table {:nodes :child})
- (project {:parent-id :pid, :name :name}))
- (-> (table {:nodes :parent})
- (project {:id :id}))
- :type :outer
- :on '(= :pid :id))
- println)
-
-(-> (join (-> (table :x)
- (project [:id :num :age]))
- (-> (table :y)
- (project [:id :num :b-age]))
- :type :left
- :on '(= :age :b-age))
- (project [:id :num]))
-
(defn select [query expression]
(let [table-name (if-not (:joins query)
(-> query :table first val))