almost there; datomic works for everything except http routes and import.

This commit is contained in:
BC
2018-09-20 23:34:57 -07:00
parent 4a237a8224
commit 951f8ceaea
10 changed files with 17 additions and 49 deletions

View File

@@ -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)))