From c5dc3ee81dde03448e6029103d598b349dde4d84 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 3 Sep 2024 16:20:14 +0100 Subject: 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?. --- ravanan/command-line-tool.scm | 8 ++++---- 1 file 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 -- cgit v1.2.3