blob: 27dec78fc7928bc7c5596c30ba9c1bd3c038cfe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(define md5sum
(command #:inputs (file #:type File #:stage? #t)
#:run "md5sum" "$(inputs.file.basename)"
#:outputs (md5 #:type stdout)
#:stdout "md5"))
(define sha1sum
(command #:inputs (file #:type File #:stage? #t)
#:run "sha1sum" "$(inputs.file.basename)"
#:outputs (sha1 #:type stdout)
#:stdout "sha1"))
(define sha256sum
(command #:inputs (file #:type File #:stage? #t)
#:run "sha256sum" "$(inputs.file.basename)"
#:outputs (sha256 #:type stdout)
#:stdout "sha256"))
(workflow ((file #:type File))
(tee (md5sum #:file file)
(sha1sum #:file file)
(sha256sum #:file file)))
|
