From b741170945ed35552524f809e1fe51a09e6f6b75 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 11 Oct 2021 13:56:00 +0530
Subject: ccwl: Remove unused write-cwl function.

* ccwl/ccwl.scm: Do not export write-cwl.
(write-cwl): Delete function.
---
 ccwl/ccwl.scm | 11 +----------
 1 file changed, 1 insertion(+), 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)))
-- 
cgit v1.2.3