luciano/bandalore
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge 1f5cf5357c into a0fb4273b2

Browse source
This commit is contained in:
Aaron France 2014-10-16 19:05:23 +00:00
commit 55dc7023af
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/main/clojure/cemerick/bandalore.clj
View file

@ -11,9 +11,9 @@
(com.amazonaws.services.sqs.model (com.amazonaws.services.sqs.model
AddPermissionRequest ChangeMessageVisibilityRequest CreateQueueRequest AddPermissionRequest ChangeMessageVisibilityRequest CreateQueueRequest
DeleteMessageRequest DeleteQueueRequest GetQueueAttributesRequest DeleteMessageRequest DeleteQueueRequest GetQueueAttributesRequest
ListQueuesRequest Message ReceiveMessageRequest ReceiveMessageResult GetQueueUrlRequest ListQueuesRequest Message ReceiveMessageRequest
RemovePermissionRequest SendMessageRequest SendMessageResult ReceiveMessageResult RemovePermissionRequest SendMessageRequest
SetQueueAttributesRequest)) SendMessageResult SetQueueAttributesRequest))
(:refer-clojure :exclude (send))) (:refer-clojure :exclude (send)))
(defn create-client (defn create-client
@ -58,6 +58,11 @@
.getQueueUrls .getQueueUrls
seq)) seq))
(defn queue-url
"Returns the URL for a named queue"
[^AmazonSQSClient client queue-name]
(.getQueueUrl (GetQueueUrlRequest. queue-name)))
(defn queue-attrs (defn queue-attrs
"Gets or sets the attributes of a queue specified by its URL string. "Gets or sets the attributes of a queue specified by its URL string.