about summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2025-04-22 22:04:20 +0100
committerArun Isaac2025-04-22 22:19:32 +0100
commit91a52ca755f64c8336c1ba2753e0be978dd4f9b0 (patch)
tree197aa97876d172e3ebc6f63fbf89989f9cfa8b0a
parentff89b8cef7b56d3665937de02629e60c8ca1bed7 (diff)
downloadravanan-91a52ca755f64c8336c1ba2753e0be978dd4f9b0.tar.gz
ravanan-91a52ca755f64c8336c1ba2753e0be978dd4f9b0.tar.lz
ravanan-91a52ca755f64c8336c1ba2753e0be978dd4f9b0.zip
work/command-line-tool: Comment on trusting the checksum.
* ravanan/work/command-line-tool.scm (canonicalize-file-value):
Comment on trusting the checksum.
-rw-r--r--ravanan/work/command-line-tool.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm
index 198addd..853b4fb 100644
--- a/ravanan/work/command-line-tool.scm
+++ b/ravanan/work/command-line-tool.scm
@@ -234,6 +234,11 @@ actually paths."
                        ("nameroot" . ,(file-name-stem path))
                        ("nameext" . ,(file-name-extension path))
                        ("size" . ,(stat:size (stat path)))
+                       ;; Compute the checksum, but only if it is not provided.
+                       ;; If it is provided, trust that it is correct. This
+                       ;; avoids costly (think hashing terabytes of data) hash
+                       ;; computations causing a long delay before the workflow
+                       ;; actually starts running.
                        ("checksum" . ,(or (assoc-ref value "checksum")
                                           (checksum path))))
       (cons "secondaryFiles"