notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

working on restore.

Browse Source
This commit is contained in:
Bryce Covert
2023-03-29 06:43:24 -07:00
parent 93077fa25d
commit 9d355a41b5
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/clj/auto_ap/datomic.clj
View File

@@ -16,6 +16,7 @@
(mount/defstate client (mount/defstate client
:start (dc/client (:client-config env)) :start (dc/client (:client-config env))
:stop nil) :stop nil)
(mount/defstate conn (mount/defstate conn
:start (dc/connect client {:db-name (:db-name env)}) :start (dc/connect client {:db-name (:db-name env)})
:stop nil) :stop nil)

6
src/clj/auto_ap/jobs/restore_from_backup.clj
View File

@@ -119,7 +119,7 @@
(doseq [entity (or item-list (filter (complement (conj @loaded "audit")) (order-of-insert entity-dependencies))) (doseq [entity (or item-list (filter (complement (conj @loaded "audit")) (order-of-insert entity-dependencies)))
:let [_ (swap! loaded conj entity) :let [_ (swap! loaded conj entity)
_ (println "querying for " entity) _ (println "querying for " entity)
entities (ednl/slurp (pull-file backup-id (str entity "ednl"))) entities (ednl/slurp (pull-file backup-id (str entity ".ednl")))
_ (println "Found some! here's a few: " (take 3 entities)) _ (println "Found some! here's a few: " (take 3 entities))
tx-chan (a/chan 50) tx-chan (a/chan 50)
@@ -146,5 +146,7 @@
;; cloud load ;; cloud load
(comment (comment
(load-from-backup "a1975512-9091-49d1-a348-ee445363ba34" auto-ap.datomic/conn ["vendor"])) (load-from-backup "a1975512-9091-49d1-a348-ee445363ba34" auto-ap.datomic/conn )
)
;; => nil ;; => nil