aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-21 16:14:33 +0530
committerArun Isaac2021-03-21 16:14:33 +0530
commite4a36eb8b100bd1d0deea9929228ba476309d8fb (patch)
tree629f5cec7e4d7a722bf4cc98fac799ecbf34e0a4
parent5b1c663f99b04157f8b4fac1cc42343a49088128 (diff)
downloadccwl-e4a36eb8b100bd1d0deea9929228ba476309d8fb.tar.gz
ccwl-e4a36eb8b100bd1d0deea9929228ba476309d8fb.tar.lz
ccwl-e4a36eb8b100bd1d0deea9929228ba476309d8fb.zip
Print steps enclosing <command> objects correctly.
* ccwl/ccwl.scm (write-cwl): Invoke command->cwl if step encloses <command> object.
-rw-r--r--ccwl/ccwl.scm6
1 files changed, 5 insertions, 1 deletions
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))
+ <>)))