almost there; datomic works for everything except http routes and import.
This commit is contained in:
@@ -1,9 +1,6 @@
|
||||
(ns auto-ap.background.mail
|
||||
(:require [amazonica.aws.s3 :as s3]
|
||||
[amazonica.aws.sqs :as sqs]
|
||||
[auto-ap.db.companies :as companies]
|
||||
[auto-ap.db.vendors :as vendors]
|
||||
[auto-ap.db.invoices :as invoices]
|
||||
[auto-ap.parse :as parse]
|
||||
[clojure-mail.message :as message]
|
||||
[clojure.data.json :as json]
|
||||
@@ -14,7 +11,7 @@
|
||||
(javax.mail.internet MimeMessage)))
|
||||
|
||||
|
||||
(defn process-sqs []
|
||||
#_(defn process-sqs []
|
||||
(try
|
||||
(println "Fetching messages from sqs...")
|
||||
(let [companies (companies/get-all)
|
||||
@@ -43,6 +40,6 @@
|
||||
(catch Exception e
|
||||
(println e))))
|
||||
|
||||
(defn always-process-sqs []
|
||||
#_(defn always-process-sqs []
|
||||
(while (not (Thread/interrupted))
|
||||
(process-sqs)))
|
||||
|
||||
Reference in New Issue
Block a user