diff options
| -rw-r--r-- | ravanan/workflow.scm | 11 |
1 files 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))) |