diff options
| author | Arun Isaac | 2021-03-21 15:50:43 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-21 15:50:43 +0530 |
| commit | fec5f25f5a6a602a9141d09ad60c58e98f874921 (patch) | |
| tree | cba64178b91be5578ef8a0b966af6138402251ae | |
| parent | cde06178635edc14f5bb28273791f9b406995de6 (diff) | |
| download | ccwl-fec5f25f5a6a602a9141d09ad60c58e98f874921.tar.gz ccwl-fec5f25f5a6a602a9141d09ad60c58e98f874921.tar.lz ccwl-fec5f25f5a6a602a9141d09ad60c58e98f874921.zip | |
Set the default output of a pipeline.
* ccwl/ccwl.scm (pipeline): Set the stdout of the last command to be the default output of the pipeline.
| -rw-r--r-- | ccwl/ccwl.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index e920e81..97613a2 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -202,7 +202,12 @@ re-matched." interface-inputs outputs))) -(define (pipeline id steps outputs) +(define* (pipeline id steps + #:optional + (outputs + (list (output (string-append id "_stdout") + #:source (string-append (step-id (last steps)) + "/stdout"))))) ;; Error out if any step does not encapsulate a command. (cond ((find (lambda (step) |