From cc7977c6319a8e20eebb0958d08e287b9f489b2a Mon Sep 17 00:00:00 2001
From: Carlo Zancanaro <carlo@clearboxsystems.com.au>
Date: Wed, 15 May 2013 17:23:02 +1000
Subject: Remove two bits of code that were lying around from experimenting
---
src/clojure_sql/core.clj | 16 ----------------
1 file changed, 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))
--
cgit v1.2.3