mpuppe/secrets
1
0
Fork 0
mirror of https://codeberg.org/puppe/secrets.git synced 2025-12-20 00:42:17 +01:00
Code Issues Projects Releases Packages Wiki Activity

Exit with status 1 if sub-process fails

Browse source
This commit is contained in:
Martin Puppe 2020-12-02 17:21:31 +01:00
parent 88b66fe6bc
commit ab39b45e30
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
secrets
View file

@ -219,7 +219,11 @@ EOF
(handle-stdin stdin phase-channel basedir files)))]) (handle-stdin stdin phase-channel basedir files)))])
(thread-wait stderr-thread) (thread-wait stderr-thread)
(thread-wait stdin-thread)))) (thread-wait stdin-thread))
(subprocess-wait sp)
(let ([status (subprocess-status sp)])
(unless (equal? status 0)
(exit 1)))))
(void)) (void))