aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-10-11 13:56:00 +0530
committerArun Isaac2021-10-11 13:56:00 +0530
commitb741170945ed35552524f809e1fe51a09e6f6b75 (patch)
tree12ea4e997c260ff70338349f2a989d1e03a8d655
parentf31f4e224bc94f2e4d0dcc96e77c8ea512fad433 (diff)
downloadccwl-b741170945ed35552524f809e1fe51a09e6f6b75.tar.gz
ccwl-b741170945ed35552524f809e1fe51a09e6f6b75.tar.lz
ccwl-b741170945ed35552524f809e1fe51a09e6f6b75.zip
ccwl: Remove unused write-cwl function.
* ccwl/ccwl.scm: Do not export write-cwl. (write-cwl): Delete function.
-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)))