aboutsummaryrefslogtreecommitdiff
path: root/doc/identity-construct.scm
diff options
context:
space:
mode:
Diffstat (limited to 'doc/identity-construct.scm')
-rw-r--r--doc/identity-construct.scm14
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))))