diff options
| author | Arun Isaac | 2021-03-21 16:14:33 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-21 16:14:33 +0530 |
| commit | e4a36eb8b100bd1d0deea9929228ba476309d8fb (patch) | |
| tree | 629f5cec7e4d7a722bf4cc98fac799ecbf34e0a4 | |
| parent | 5b1c663f99b04157f8b4fac1cc42343a49088128 (diff) | |
| download | ccwl-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.scm | 6 |
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)) + <>))) |