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))))
|
