From e43a3c6f1725d6b209af7d19031c39ad4484bc4f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 11 Oct 2024 01:33:20 +0100
Subject: workflow: Report file interning.

* ravanan/workflow.scm (intern-file): Report file interning.
---
 ravanan/workflow.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm
index 9877876..d263b4b 100644
--- a/ravanan/workflow.scm
+++ b/ravanan/workflow.scm
@@ -470,8 +470,15 @@ interned path and location."
                                                       "-"
                                                       (basename path)))
                       store)))
-                (unless (file-exists? interned-path)
-                  (copy-file path interned-path))
+                (if (file-exists? interned-path)
+                    (format (current-error-port)
+                            "~a previously interned into store as ~a~%"
+                            path interned-path)
+                    (begin
+                      (format (current-error-port)
+                              "Interning ~a into store as ~a~%"
+                              path interned-path)
+                      (copy-file path interned-path)))
                 interned-path))))
     (maybe-assoc-set file
       (cons "location" (just (string-append "file://" interned-path)))
-- 
cgit v1.2.3