able to read emails from sqs.
This commit is contained in:
@@ -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})))
|
||||
|
||||
Reference in New Issue
Block a user