From 265fa6c81f34b76afd93409e10d4a00141a1406f Mon Sep 17 00:00:00 2001 From: Justin Kramer Date: Fri, 13 Jul 2012 11:46:30 -0400 Subject: [PATCH] fix joins --- src/honeysql/core.clj | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/honeysql/core.clj b/src/honeysql/core.clj index e718558..edd82d8 100644 --- a/src/honeysql/core.clj +++ b/src/honeysql/core.clj @@ -48,17 +48,11 @@ (defn join [& clauses] (let [[m clauses] (if (map? (first clauses)) [(first clauses) (rest clauses)] - [{} clauses]) - clauses (if (not (coll? (first clauses))) - [clauses] - clauses)] + [{} clauses])] (assoc m :join clauses))) (defn merge-join [sql-map & clauses] - (let [clauses (if (not (coll? (first clauses))) - [clauses] - clauses)] - (update-in sql-map [:join] concat clauses))) + (update-in sql-map [:join] concat clauses)) (defn group-by [& fields] (let [[m fields] (if (map? (first fields))