summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/ccwl.scm11
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)))