diff options
| author | Arun Isaac | 2023-11-18 23:14:58 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-11-18 23:14:58 +0000 |
| commit | fcf1dd6336cf8822a08263ed7851c489a2333045 (patch) | |
| tree | 5e97adf46a09b55b5eefe0cacb2343e08b487a9a | |
| parent | 7622601e5f99ca98933ffc52908c5749d333dec2 (diff) | |
| download | ccwl-fcf1dd6336cf8822a08263ed7851c489a2333045.tar.gz ccwl-fcf1dd6336cf8822a08263ed7851c489a2333045.tar.lz ccwl-fcf1dd6336cf8822a08263ed7851c489a2333045.zip | |
ccwl: Never set other and binding fields of inputs/outputs to #f.
Setting the other and binding fields to #f is a type violation. It
messes with code that expects these fields to always contain lists.
* ccwl/ccwl.scm (cwl-workflow): Set other and binding fields of inputs
and outputs to the empty list.
| -rw-r--r-- | ccwl/ccwl.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 429bbed..558161c 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -498,13 +498,13 @@ identifiers defined in the commands." ((id . type) (with-syntax ((id (datum->syntax #f id)) (type (datum->syntax #f type))) - #`(make-input 'id 'type #f #f #f #f #f #f)))) + #`(make-input 'id 'type #f #f #f #f #f '())))) (parameters->id+type (assoc-ref yaml "inputs")))) (list #,@(map (match-lambda ((id . type) (with-syntax ((id (datum->syntax #f id)) (type (datum->syntax #f type))) - #`(make-output 'id 'type #f #f #f)))) + #`(make-output 'id 'type '() #f '())))) (parameters->id+type (assoc-ref yaml "outputs"))))))))))) (define (function-inputs function) |