From cde06178635edc14f5bb28273791f9b406995de6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 21 Mar 2021 15:44:59 +0530
Subject: Pull out cwl-version as a separate variable.
* ccwl/ccwl.scm (%cwl-version): New variable.
(workflow, command->cwl): Use %cwl-version.
---
ccwl/ccwl.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 1923e66..e920e81 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -19,6 +19,8 @@
pipeline
write-cwl))
+(define %cwl-version "v1.1")
+
(define-immutable-record-type <input>
(make-input id type label default source prefix other)
input?
@@ -172,7 +174,7 @@ re-matched."
;; the outside world.
(interface-inputs (remove input-source inputs)))
(make-step id
- `((cwlVersion . "v1.1")
+ `((cwl-version . ,%cwl-version)
(class . Workflow)
(requirements (Subworkflow-feature-requirement))
,@other
@@ -242,7 +244,7 @@ re-matched."
,@(output-other output)))
(define (command->cwl command)
- `((cwl-version . "v1.1")
+ `((cwl-version . ,%cwl-version)
(class . Command-line-tool)
,@(command-other command)
(arguments . ,(list->vector (map (lambda (arg)
--
cgit v1.2.3