turning everything on.
This commit is contained in:
@@ -20,7 +20,10 @@
|
||||
(let [[{:keys [message-id receipt-handle body]}] (:messages (sqs/receive-message {:queue-url queue-url
|
||||
:wait-time-seconds 1
|
||||
:count 1}))]
|
||||
|
||||
(when message-id
|
||||
(sqs/delete-message {:queue-url queue-url
|
||||
:receipt-handle receipt-handle} )
|
||||
(log/infof "processing message %s with body %s" message-id body )
|
||||
(cond
|
||||
(= ":intuit" body)
|
||||
@@ -46,8 +49,7 @@
|
||||
(p/import-plaid)
|
||||
(catch Exception e
|
||||
(log/error e))))
|
||||
(sqs/delete-message {:queue-url queue-url
|
||||
:receipt-handle receipt-handle} )))))
|
||||
))))
|
||||
|
||||
(defn fake-message []
|
||||
(sqs/send-message {:queue-url (:requests-queue-url env)
|
||||
|
||||
Reference in New Issue
Block a user