(cloud) Improvements in logging when restoring backup

src/clj/auto_ap/jobs/restore_from_backup.clj

@@ -44,9 +44,10 @@
 (def loaded (atom #{}))
 
 (defn upsert-batch
-  [batch]
+  [batch context]
   (de/future-with request-pool 
-                  (transact-with-backoff batch)
+                  (mu/with-context context
+                    (transact-with-backoff batch))
                   batch))
 
 (defn pull-file [backup which]
@@ -83,8 +84,10 @@
                                        (when @die?
                                          (reset! die? false)
                                          (throw (Exception. "dead")))
-                                       (upsert-batch entities)))
-                              (s/buffer 50)
+                                       (upsert-batch entities {:entity entity
+                                                               :service "restore-from-backup"
+                                                               :background-job "restore-from-backup"})))
+                              (s/buffer 20)
                               (s/realize-each)))
               (swap! loaded conj entity))))