TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

size: Gracefully handle EPIPE.

Browse source 
* guix/scripts/size.scm (guix-size): Wrap body in 'leave-on-EPIPE'.
This commit is contained in:
Ludovic Courtès 2015-07-15 18:05:29 +02:00
parent df36e62938
commit d2f2c8f126
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/scripts/size.scm
View file

@ -280,6 +280,7 @@ (define (guix-size . args)
(() (()
(leave (_ "missing store item argument\n"))) (leave (_ "missing store item argument\n")))
((file) ((file)
(leave-on-EPIPE
(with-store store (with-store store
(run-with-store store (run-with-store store
(mlet* %store-monad ((item (ensure-store-item file)) (mlet* %store-monad ((item (ensure-store-item file))
@ -289,6 +290,6 @@ (define (guix-size . args)
(profile->page-map profile map-file) (profile->page-map profile map-file)
(return #t)) (return #t))
(display-profile* profile))) (display-profile* profile)))
#:system system))) #:system system))))
((files ...) ((files ...)
(leave (_ "too many arguments\n"))))))) (leave (_ "too many arguments\n")))))))