1 files changed, 14 insertions, 0 deletions
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))))