aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-05-15 20:30:14 +0530
committerArun Isaac2021-05-15 20:30:14 +0530
commitb14dcf9c5ca294475d67228821e280c327e01530 (patch)
treeef34f8759393e0cd6d3dd6a8cc41cc3d10f387b8
parenta36007a22fa963ac3d88c7b9d2c57e641d1ac6c0 (diff)
downloadccwl-b14dcf9c5ca294475d67228821e280c327e01530.tar.gz
ccwl-b14dcf9c5ca294475d67228821e280c327e01530.tar.lz
ccwl-b14dcf9c5ca294475d67228821e280c327e01530.zip
Pass inputs explicitly to make-workflow.
* ccwl/ccwl.scm (make-workflow): Accept inputs explicitly.
-rw-r--r--ccwl/ccwl.scm14
1 files changed, 2 insertions, 12 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index b656d36..25a9950 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -142,7 +142,7 @@
(plist->alist args)
(command-outputs command)))
-(define* (make-workflow steps outputs #:key (other '()))
+(define* (make-workflow steps inputs outputs #:key (other '()))
"Build a Workflow class CWL workflow."
`((cwlVersion . ,%cwl-version)
(class . Workflow)
@@ -156,17 +156,7 @@
(default . ,(and (not (unspecified-default? (input-default input)))
(input-default input)))))
,@(input-other input)))
- ;; When the same input is used by multiple steps,
- ;; there will be duplicates. So, deduplicate.
- (delete-duplicates
- (append-map (lambda (step)
- (filter-map (match-lambda
- ((_ . (? input? input))
- input)
- (_ #f))
- (step-in step)))
- steps)
- input=?)))
+ inputs))
(outputs . ,(map (lambda (output)
`(,(output-id output)
(type . ,(match (output-type output)