    ;; a map of queue names to the retry policies for that queue
    queues-to-policies
 
-   ;; a map of queues to seqeunces of exchange names to which they should be bound
+   ;; a map of queues to sequences of exchange names to which they should be bound
    queues-to-exchanges]
 
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  "Memoized function that returns the queue url for the given name."
  (memoize -get-queue-url))

(defrecord SQSQueueBroker
  ;; A record containig fields related to accessing SNS/SQS exchanges and queues.
  [
   ;; Connection to AWS SNS
   sns-client

      (doseq [queue (keys queues-to-exchanges)
              :let [exchanges (get queues-to-exchanges queue)]]
        (bind-queue-to-exchanges sns-client sqs-client exchanges queue))
      (assoc this
             :sns-client sns-client
             :sqs-client sqs-client
             :normalized-queue-names normalized-queue-names)))

  (stop
