11 lines
298 B
Clojure
11 lines
298 B
Clojure
(ns auto-ap.jobs.ledger-reconcile
|
|
(:require
|
|
[auto-ap.jobs.core :refer [execute]]
|
|
[auto-ap.ledger :as ledger]))
|
|
|
|
(defn -main [& _]
|
|
(execute "reconcile-ledger" (fn []
|
|
(ledger/reconcile-ledger)
|
|
(ledger/touch-broken-ledger))))
|
|
|