summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-11-18 23:14:58 +0000
committerArun Isaac2023-11-18 23:14:58 +0000
commitfcf1dd6336cf8822a08263ed7851c489a2333045 (patch)
tree5e97adf46a09b55b5eefe0cacb2343e08b487a9a
parent7622601e5f99ca98933ffc52908c5749d333dec2 (diff)
downloadccwl-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.scm4
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)