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