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>
|
||||
|
||||
<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>
|
||||
|
|
|
|||
|
|
@ -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)))))
|
||||
|
|
|
|||
|
|
@ -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
|
||||
[]
|
||||
|
|
|
|||
Loading…
Reference in a new issue