diff options
| -rw-r--r-- | ccwl/ccwl.scm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 60472b2..cdd1bbc 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -33,8 +33,7 @@ #:use-module (ccwl utils) #:use-module (ccwl yaml) #:export (command - workflow - write-cwl)) + workflow)) (define %cwl-version "v1.2") @@ -278,14 +277,6 @@ RUN-ARGS. If such an input is not present in RUN-ARGS, return #f." ".path)"))) '()))) -(define (write-cwl step file) - (call-with-output-file file - (cut scm->yaml (let ((run (step-run step))) - (if (command? run) - (command->cwl run) - run)) - <>))) - (define (command-input-keys command) "Return the list of input keys accepted by COMMAND." (map input-id (command-inputs command))) |