diff options
| author | Arun Isaac | 2025-08-18 14:24:07 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-08-18 14:40:40 +0100 |
| commit | 2f9e6708dfb2b3fbaa3d0dcca86ae309ca934b0c (patch) | |
| tree | 9c6f2918d34c4c96c8f4aff4da8f74ae4362d334 | |
| parent | ce07104835149c09aae78fac5ecc71bd682c5178 (diff) | |
| download | ravanan-2f9e6708dfb2b3fbaa3d0dcca86ae309ca934b0c.tar.gz ravanan-2f9e6708dfb2b3fbaa3d0dcca86ae309ca934b0c.tar.lz ravanan-2f9e6708dfb2b3fbaa3d0dcca86ae309ca934b0c.zip | |
work/command-line-tool: Canonicalize path in File values.
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 5 |
1 files 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. |