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

(cloud) Tweaks to logging and build performance

Browse Source
This commit is contained in:
Bryce Covert
2023-03-30 08:38:47 -07:00
parent f0603d922a
commit 9fc8c13d53
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
buildspec.yml
View File

@@ -48,4 +48,8 @@ artifacts:
files: files:
- "**/*" - "**/*"
base-directory: resources/public base-directory: resources/public
cache:
paths:
- '/root/.m2/**/*'
- '/root/.npm/**/*'
- 'build/**/*'

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

@@ -64,6 +64,8 @@
(defn pull-file [backup which] (defn pull-file [backup which]
(mu/log ::pulling-file
:file (str "/datomic-backup/" backup "/" which))
(with-open [w (io/writer "/tmp/tmp-edn")] (with-open [w (io/writer "/tmp/tmp-edn")]
(io/copy (:input-stream (s3/get-object {:bucket-name "data.prod.app.integreatconsult.com" (io/copy (:input-stream (s3/get-object {:bucket-name "data.prod.app.integreatconsult.com"
:key (str "/datomic-backup/" backup "/" which)})) :key (str "/datomic-backup/" backup "/" which)}))
@@ -125,7 +127,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 [_ (reset! so-far 0) :let [_ (reset! so-far 0)
_ (mu/log ::querying :entity entity) _ (mu/log ::querying :entity entity)
entities (mu/trace ::pulling-file entities (mu/trace ::file-pulled
[:file (str backup-id "/" entity ".ednl")] [:file (str backup-id "/" entity ".ednl")]
(ednl/slurp (pull-file backup-id (str entity ".ednl"))))]] (ednl/slurp (pull-file backup-id (str entity ".ednl"))))]]
(load-entity entity entities))))) (load-entity entity entities)))))