From cc7977c6319a8e20eebb0958d08e287b9f489b2a Mon Sep 17 00:00:00 2001 From: Carlo Zancanaro 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(-) (limited to 'src/clojure_sql') 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