diff options
| author | Arun Isaac | 2024-09-03 16:20:14 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-09-05 16:21:32 +0100 |
| commit | c5dc3ee81dde03448e6029103d598b349dde4d84 (patch) | |
| tree | be40ee55153c470921683b23ac56f5d67e859ebb | |
| parent | c77153d1dbf38ed00e158d91fe2a525b11de25b4 (diff) | |
| download | ravanan-c5dc3ee81dde03448e6029103d598b349dde4d84.tar.gz ravanan-c5dc3ee81dde03448e6029103d598b349dde4d84.tar.lz ravanan-c5dc3ee81dde03448e6029103d598b349dde4d84.zip | |
command-line-tool: Match type to "stdout" using equal?.
Matching using string=? errors out when the type is not a string (for example,
an array type).
*
ravanan/command-line-tool.scm (build-command-line-tool-script)[stdout-filename,
capture-outputs-gexp]: Match type to "stdout" using equal?.
| -rw-r--r-- | ravanan/command-line-tool.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 7c9564c..542e481 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -692,8 +692,8 @@ named @var{name} with @var{inputs} using tools from Guix manifest ;; stdout filename is not specified, but one of the outputs is of type ;; stdout. ((vector-any (lambda (output) - (string=? (assoc-ref* output "type") - "stdout")) + (equal? (assoc-ref* output "type") + "stdout")) (assoc-ref* cwl "outputs")) #~(file-name-join* stdout-directory "stdout")) (else #f))) @@ -743,8 +743,8 @@ named @var{name} with @var{inputs} using tools from Guix manifest '#$(vector->list (assoc-ref cwl "outputs")))) #$(let ((stdout-outputs other-outputs (partition (lambda (output) - (string=? (assoc-ref* output "type") - "stdout")) + (equal? (assoc-ref* output "type") + "stdout")) (vector->list (assoc-ref* cwl "outputs"))))) #~(append (map (cut stdout-output->value workflow-output-directory |