Minor fix to ledger processing.

src/clj/auto_ap/ledger.clj

@@ -138,7 +138,7 @@
     
     
     (doseq [d-tx d-txs]
-      (println "updating general-ledger " d-tx)
+      #_(println "updating general-ledger " d-tx)
       @(d/transact (d/connect uri) [d-tx]))))
 
 (def break (atom false))
@@ -147,7 +147,10 @@
   (println "Starting worker")
   (while (and (not @break)
               (not (Thread/interrupted)))
-    (process-one (d/tx-report-queue (d/connect uri) ))))
+    (try
+      (process-one (d/tx-report-queue (d/connect uri) )) 
+      (catch Exception e
+        (println (.toString e))))))
 
 
 #_(process-one (d/tx-report-queue (d/connect uri) ))