summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-06 02:16:43 +0530
committerArun Isaac2021-03-06 02:16:43 +0530
commit92570260b7a9b0bae4367a92438f8f9f25f594bf (patch)
tree4fe3c7a9e375ec69afb93873ef49483a8fae2295
parentee64644e9912a70ab86f5680fb4b96847ddd0bdc (diff)
downloadccwl-92570260b7a9b0bae4367a92438f8f9f25f594bf.tar.gz
ccwl-92570260b7a9b0bae4367a92438f8f9f25f594bf.tar.lz
ccwl-92570260b7a9b0bae4367a92438f8f9f25f594bf.zip
Define input=? predicate.
* ccwl/ccwl.scm (input=?): New function.
-rw-r--r--ccwl/ccwl.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 26ea69c..a9745b1 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -107,6 +107,10 @@
additional-inputs)
outputs))
+(define (input=? input1 input2)
+ (string=? (input-id input1)
+ (input-id input2)))
+
"Build a Workflow class CWL workflow."
`((cwlVersion . "v1.1")
(class . Workflow)