Clojure 1.3.0 compatibility; use it as the default dependency, fixes gh-1
This commit is contained in:
parent
7ae72ff7d9
commit
d55dbb0590
3 changed files with 4 additions and 10 deletions
8
pom.xml
8
pom.xml
|
|
@ -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>
|
||||||
|
|
|
||||||
|
|
@ -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)))))
|
||||||
|
|
|
||||||
|
|
@ -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
|
||||||
[]
|
[]
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue