diff options
author | Arun Isaac | 2021-05-15 20:30:14 +0530 |
---|---|---|
committer | Arun Isaac | 2021-05-15 20:30:14 +0530 |
commit | b14dcf9c5ca294475d67228821e280c327e01530 (patch) | |
tree | ef34f8759393e0cd6d3dd6a8cc41cc3d10f387b8 | |
parent | a36007a22fa963ac3d88c7b9d2c57e641d1ac6c0 (diff) | |
download | ccwl-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.scm | 14 |
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) |