diff options
| author | Arun Isaac | 2024-09-05 17:03:53 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-09-05 17:03:53 +0100 |
| commit | bea4cf1ae71bb20f436d16041d642dc56faea734 (patch) | |
| tree | 980ad6daba125905bf7f5aece4c693a8687eb9de | |
| parent | 6b41a04baa5c2ca06c87ef4911dd67ecf73b2824 (diff) | |
| download | ravanan-bea4cf1ae71bb20f436d16041d642dc56faea734.tar.gz ravanan-bea4cf1ae71bb20f436d16041d642dc56faea734.tar.lz ravanan-bea4cf1ae71bb20f436d16041d642dc56faea734.zip | |
command-line-tool: Require glob only for File and Directory types.
*
ravanan/command-line-tool.scm (build-command-line-tool-script)[output-binding-glob]:
Require glob only for File and Directory types.
| -rw-r--r-- | ravanan/command-line-tool.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 47b3903..30ff451 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -703,7 +703,9 @@ named @var{name} with @var{inputs} using tools from Guix manifest (from-maybe (maybe-assoc-ref (just output) "outputBinding" "glob") - (raise-error #f "glob output binding not specified"))) + (and (memq (formal-parameter-type (assoc-ref* output "type")) + (list 'File 'Directory)) + (raise-error #f "glob output binding not specified")))) (define run-command-gexp #~(run-command (list #$@(append-map (lambda (arg) |