diff options
author | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-15 17:23:02 +1000 |
---|---|---|
committer | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-15 17:23:02 +1000 |
commit | cc7977c6319a8e20eebb0958d08e287b9f489b2a (patch) | |
tree | 3ceae3e671d62e0ebd9e6c74023fc174e424a9d5 | |
parent | 318dcc01c54893aa58a4960638f2aa74fe36921e (diff) |
Remove two bits of code that were lying around from experimenting
-rw-r--r-- | src/clojure_sql/core.clj | 16 |
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)) |