From fec5f25f5a6a602a9141d09ad60c58e98f874921 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 21 Mar 2021 15:50:43 +0530
Subject: 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.
---
 ccwl/ccwl.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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)
-- 
cgit v1.2.3