ccwl: Remove unused write-cwl function.

* ccwl/ccwl.scm: Do not export write-cwl.
(write-cwl): Delete function.

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)))