diff --git a/src/main/clojure/cemerick/bandalore.clj b/src/main/clojure/cemerick/bandalore.clj index a4060ba..2450163 100644 --- a/src/main/clojure/cemerick/bandalore.clj +++ b/src/main/clojure/cemerick/bandalore.clj @@ -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.