           exchange-name (normalize-queue-name exchange-name)
           topic (get-topic sns-client exchange-name)
           topic-arn (.getTopicArn topic)]
+      ;; XXX keep but change to debug
+      (info "Publishing message" msg "to exchange" exchange-name)
       (.publish sns-client topic-arn msg)))
 
   (subscribe

  it is best to define the default configuration value as nil, so as to avoid
  unexpected client behaviour."
  [client-obj & args]
  (info "Configuring client" client-obj)
  (doseq [[config-key config-vals] (partition 2 args)]
    (set-aws-client-attr! client-obj config-key config-vals))
  client-obj)

(defmulti create-aws-client

    [this queue-name msg]
    (let [msg (json/generate-string msg)
          queue-name (normalize-queue-name queue-name)
          queue-url (get-queue-url
                     sqs-client (:normalized-queue-names this) queue-name)]
      (debug "Publishing message" msg "to queue" queue-name)
      (.sendMessage sqs-client queue-url msg)))

  (get-queues-bound-to-exchange
