working on support gl.

2019-12-31 18:00:58 -08:00
parent 4b2821e6fb
commit 475985c137
2 changed files with 7 additions and 5 deletions
--- a/src/clj/auto_ap/ledger.clj
+++ b/src/clj/auto_ap/ledger.clj
@@ -141,8 +141,11 @@
      #_(println "updating general-ledger " d-tx)
      @(d/transact (d/connect uri) [d-tx]))))

+(def break (atom false))
+
 (defn process-all []
-  (while (not (Thread/interrupted))
+  (while (and (not @break)
+              (not (Thread/interrupted)))
    (process-one (d/tx-report-queue (d/connect uri) ))))