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)) | 
