From 2f9e6708dfb2b3fbaa3d0dcca86ae309ca934b0c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 18 Aug 2025 14:24:07 +0100
Subject: work/command-line-tool: Canonicalize path in File values.

---
 ravanan/work/command-line-tool.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm
index ef09658..6378aa7 100644
--- a/ravanan/work/command-line-tool.scm
+++ b/ravanan/work/command-line-tool.scm
@@ -253,8 +253,9 @@ condition on unsupported URI schemes."
 
 (define (canonicalize-file-value value)
   "Canonicalize @code{File} type @var{value} adding missing fields."
-  (let* ((path (or (assoc-ref value "path")
-                   (location->path (assoc-ref value "location"))))
+  (let* ((path (canonicalize-path
+                (or (assoc-ref value "path")
+                    (location->path (assoc-ref value "location")))))
          ;; The location field may actually be a path instead of an URI; that's
          ;; invalid. So, unconditionally reconstruct the location URI from path.
          ;; This assumes they are always file:// URIs, but that works for now.
-- 
cgit 1.4.1