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