From e2a6dd4cee7c49b92c748d36b4c4f3d69b59ef87 Mon Sep 17 00:00:00 2001
From: Michael Jerger <michael.jerger@meissa-gmbh.de>
Date: Mon, 30 Dec 2024 10:07:39 +0100
Subject: [PATCH] fix debug output for execute

---
 src/dda/backup/infrastructure.clj | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/dda/backup/infrastructure.clj b/src/dda/backup/infrastructure.clj
index 675c6cb..51677e7 100644
--- a/src/dda/backup/infrastructure.clj
+++ b/src/dda/backup/infrastructure.clj
@@ -27,5 +27,7 @@
    config ::core/execution]
   (let [{:keys [dry-run debug]} config]
     (doseq [c commands]
+      (when debug
+        (println c))
       (when-not dry-run
         (apply t/shell c)))))
\ No newline at end of file