diff options
| author | Arun Isaac | 2021-03-21 15:44:59 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-21 15:44:59 +0530 |
| commit | cde06178635edc14f5bb28273791f9b406995de6 (patch) | |
| tree | 3e62257edd21eca94527386bb169b16895ff4687 | |
| parent | f06bb8f93b471b4080743b41365a18ab0f53c68b (diff) | |
| download | ccwl-cde06178635edc14f5bb28273791f9b406995de6.tar.gz ccwl-cde06178635edc14f5bb28273791f9b406995de6.tar.lz ccwl-cde06178635edc14f5bb28273791f9b406995de6.zip | |
Pull out cwl-version as a separate variable.
* ccwl/ccwl.scm (%cwl-version): New variable.
(workflow, command->cwl): Use %cwl-version.
| -rw-r--r-- | ccwl/ccwl.scm | 6 |
1 files 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) |