updating general ledger automatically.

src/clj/auto_ap/server.clj

@@ -1,6 +1,7 @@
 (ns auto-ap.server
   (:require #_[auto-ap.background.mail :refer [always-process-sqs]]
             [auto-ap.handler :refer [app]]
+            [auto-ap.ledger :refer [process-all]]
             [clojure.tools.nrepl.server :refer [start-server stop-server]]
             [config.core :refer [env]]
             [ring.adapter.jetty :refer [run-jetty]])
@@ -13,5 +14,6 @@
  (defn -main [& args]
    (start-server :port 9000 :bind "0.0.0.0" :handler (cider-nrepl-handler))
    (let [port (Integer/parseInt (or (env :port) "3000"))]
+     (future (process-all))
      #_(future (always-process-sqs))
      (run-jetty app {:port port :join? false})))