From 770b738fe62112fc16c5213bd5769a8a54074fc7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 1 Dec 2023 22:34:03 +0000
Subject: ccwl: Implement identity construct.

* ccwl/ccwl.scm (collect-steps): Implement identity construct.
* doc/ccwl.skb (Cookbook)[The identity construct]: New section.
* doc/identity-construct.scm: New file.
---
 doc/identity-construct.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 doc/identity-construct.scm

(limited to 'doc/identity-construct.scm')

diff --git a/doc/identity-construct.scm b/doc/identity-construct.scm
new file mode 100644
index 0000000..626568f
--- /dev/null
+++ b/doc/identity-construct.scm
@@ -0,0 +1,14 @@
+(define print-message
+  (command #:inputs (message #:type string)
+           #:run "echo" message
+           #:outputs (printed-message #:type stdout)))
+
+(define print-file
+  (command #:inputs (file #:type File)
+           #:run "cat" file
+           #:outputs (printed-file #:type stdout)))
+
+(workflow ((message #:type string))
+  (pipe (print-message #:message message)
+        (tee (print-file #:file printed-message)
+             (identity))))
-- 
cgit v1.2.3