From e4a36eb8b100bd1d0deea9929228ba476309d8fb Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 21 Mar 2021 16:14:33 +0530
Subject: Print steps enclosing <command> objects correctly.

* ccwl/ccwl.scm (write-cwl): Invoke command->cwl if step encloses
<command> object.
---
 ccwl/ccwl.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 8cc35b3..a6ef95d 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -318,4 +318,8 @@ re-matched."
 
 (define (write-cwl step file)
   (call-with-output-file file
-    (cut scm->yaml (step-run step) <>)))
+    (cut scm->yaml (let ((run (step-run step)))
+                     (if (command? run)
+                         (command->cwl run)
+                         run))
+         <>)))
-- 
cgit v1.2.3