diff options
| -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 |