diff options
| -rw-r--r-- | ravanan/command-line-tool.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 5503dd3..47b3903 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -699,6 +699,12 @@ named @var{name} with @var{inputs} using tools from Guix manifest #~(file-name-join* stdout-directory "stdout")) (else #f))) + (define (output-binding-glob output) + (from-maybe + (maybe-assoc-ref (just output) + "outputBinding" "glob") + (raise-error #f "glob output binding not specified"))) + (define run-command-gexp #~(run-command (list #$@(append-map (lambda (arg) (if (command-line-binding? arg) @@ -761,11 +767,7 @@ named @var{name} with @var{inputs} using tools from Guix manifest other-outputs) '#$(map (cut assoc-ref <> "type") other-outputs) - '#$(map (lambda (output) - (from-maybe - (maybe-assoc-ref (just output) - "outputBinding" "glob") - (raise-error #f "glob output binding not specified"))) + '#$(map output-binding-glob other-outputs))))) out #:pretty #t) |