diff options
Diffstat (limited to 'modules/sql')
| -rw-r--r-- | modules/sql/pom.xml | 5 | ||||
| -rw-r--r-- | modules/sql/src/main/clojure/clojure/contrib/sql.clj | 10 |
2 files changed, 7 insertions, 8 deletions
diff --git a/modules/sql/pom.xml b/modules/sql/pom.xml index c36f876f..baf4ecab 100644 --- a/modules/sql/pom.xml +++ b/modules/sql/pom.xml @@ -19,11 +19,6 @@ </dependency> <dependency> <groupId>org.clojure.contrib</groupId> - <artifactId>string</artifactId> - <version>1.3.0-SNAPSHOT</version> - </dependency> - <dependency> - <groupId>org.clojure.contrib</groupId> <artifactId>except</artifactId> <version>1.3.0-SNAPSHOT</version> </dependency> diff --git a/modules/sql/src/main/clojure/clojure/contrib/sql.clj b/modules/sql/src/main/clojure/clojure/contrib/sql.clj index c6946078..5bc530af 100644 --- a/modules/sql/src/main/clojure/clojure/contrib/sql.clj +++ b/modules/sql/src/main/clojure/clojure/contrib/sql.clj @@ -21,9 +21,7 @@ :see-also [["http://github.com/richhickey/clojure-contrib/blob/master/src/test/clojure/clojure/contrib/test_sql.clj" "Example code"]]} clojure.contrib.sql - (:use (clojure.contrib - [def :only (defalias)] - [string :only (as-str)]) + (:use (clojure.contrib [def :only (defalias)]) clojure.contrib.sql.internal)) (defalias find-connection find-connection*) @@ -100,6 +98,12 @@ (transaction (seq (.executeBatch stmt))))) +(defn- as-str + [x] + (if (instance? clojure.lang.Named x) + (name x) + (str x))) + (defn create-table "Creates a table on the open database connection given a table name and specs. Each spec is either a column spec: a vector containing a column |