More safety checks

src/clj/auto_ap/backup.clj

@@ -505,4 +505,13 @@
            (mu/log ::copied)))))))
 
 (defn -main [& _]
-  (execute "export-backup" #(dump-all)))
+  (try 
+    (execute "export-backup" #(dump-all))
+    (catch Exception e
+      (println e)
+      (mu/log ::quit-error
+              :exception e
+              :background-job "export-backup"
+              :service "export-backup")
+      (Thread/sleep 5000)
+      (throw e))))