able to read emails from sqs.

This commit is contained in:
Bryce Covert
2018-04-05 21:42:23 -07:00
parent 0b3cef3f33
commit 4eace8144e
6 changed files with 66 additions and 9 deletions

View File

@@ -1,9 +1,11 @@
(ns auto-ap.server
(:require [auto-ap.handler :refer [app]]
[auto-ap.background.mail :refer [process-sqs]]
[config.core :refer [env]]
[ring.adapter.jetty :refer [run-jetty]])
(:gen-class))
(defn -main [& args]
(let [port (Integer/parseInt (or (env :port) "3000"))]
(future (process-sqs))
(run-jetty app {:port port :join? false})))