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

View file

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

View file

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