luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

un-select

Browse source
This commit is contained in:
Justin Kramer 2012-08-07 17:58:32 -04:00
parent 7a82cfabd3
commit a9fcd837ca
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/honeysql/core.clj
View file

@ -18,6 +18,9 @@
(defn merge-select [sql-map & fields] (defn merge-select [sql-map & fields]
(update-in sql-map [:select] concat fields)) (update-in sql-map [:select] concat fields))
(defn un-select [sql-map & fields]
(update-in sql-map [:select] #(remove (set fields) %)))
(defn from [& tables] (defn from [& tables]
(let [[m tables] (if (map? (first tables)) (let [[m tables] (if (map? (first tables))
[(first tables) (rest tables)] [(first tables) (rest tables)]