summaryrefslogtreecommitdiff
path: root/doc/identity-construct.scm
blob: 626568f49aa2bf30d9217b6cecd3f6e91e1a68d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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))))