replying to emails

This commit is contained in:
Bryce Covert
2018-04-05 22:47:16 -07:00
parent 4eace8144e
commit 26168cd523
5 changed files with 75 additions and 28 deletions

View File

@@ -1,11 +1,11 @@
(ns auto-ap.server
(:require [auto-ap.handler :refer [app]]
[auto-ap.background.mail :refer [process-sqs]]
[auto-ap.background.mail :refer [always-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))
(future (always-process-sqs))
(run-jetty app {:port port :join? false})))