From b14dcf9c5ca294475d67228821e280c327e01530 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 15 May 2021 20:30:14 +0530
Subject: Pass inputs explicitly to make-workflow.

* ccwl/ccwl.scm (make-workflow): Accept inputs explicitly.
---
 ccwl/ccwl.scm | 14 ++------------
 1 file 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)
-- 
cgit v1.2.3