This commit is contained in:
Kei Tsuji 2013-10-17 01:54:05 -07:00
commit 49481b426e

View file

@ -19,6 +19,11 @@
(defn create-client (defn create-client
"Creates a synchronous AmazonSQSClient using the provided account id, secret key, "Creates a synchronous AmazonSQSClient using the provided account id, secret key,
and optional com.amazonaws.ClientConfiguration." and optional com.amazonaws.ClientConfiguration."
([]
(create-client (com.amazonaws.ClientConfiguration.)))
([client-config]
(AmazonSQSClient.
(.withUserAgent client-config "Bandalore - SQS for Clojure")))
([id secret-key] ([id secret-key]
(create-client id secret-key (com.amazonaws.ClientConfiguration.))) (create-client id secret-key (com.amazonaws.ClientConfiguration.)))
([id secret-key client-config] ([id secret-key client-config]