Clojure 1.3.0 compatibility; use it as the default dependency, fixes gh-1

This commit is contained in:
Chas Emerick 2012-02-24 10:10:44 -05:00
parent 7ae72ff7d9
commit d55dbb0590
3 changed files with 4 additions and 10 deletions

View file

@ -29,7 +29,7 @@
</scm>
<properties>
<clojure.version>1.2.0</clojure.version>
<clojure.version>1.3.0</clojure.version>
</properties>
<dependencies>
@ -38,12 +38,6 @@
<artifactId>aws-java-sdk</artifactId>
<version>1.1.5</version>
</dependency>
<dependency>
<groupId>org.clojure</groupId>
<artifactId>clojure-contrib</artifactId>
<version>1.2.0</version>
<scope>test</scope>
</dependency>
</dependencies>
<build>

View file

@ -113,9 +113,9 @@
:or {limit 1
attributes #{}}}]
(let [req (-> (ReceiveMessageRequest. queue-url)
(.withMaxNumberOfMessages (-> limit (min 10) (max 1)))
(.withMaxNumberOfMessages (-> limit (min 10) (max 1) Integer.))
(.withAttributeNames attributes))
req (if visibility (.withVisibilityTimeout req visibility) req)]
req (if visibility (.withVisibilityTimeout req (Integer. visibility)) req)]
(->> (.receiveMessage client req)
.getMessages
(map (partial message-map queue-url)))))

View file

@ -13,7 +13,7 @@
(assert (and id secret-key))
(create-client id secret-key)))
(def *test-queue-url* nil)
(def ^{:dynamic true} *test-queue-url* nil)
(defn- uuid
[]