size: Gracefully handle EPIPE.
* guix/scripts/size.scm (guix-size): Wrap body in 'leave-on-EPIPE'.
This commit is contained in:
parent
df36e62938
commit
d2f2c8f126
|
@ -280,15 +280,16 @@ Report the size of PACKAGE and its dependencies.\n"))
|
||||||
(()
|
(()
|
||||||
(leave (_ "missing store item argument\n")))
|
(leave (_ "missing store item argument\n")))
|
||||||
((file)
|
((file)
|
||||||
(with-store store
|
(leave-on-EPIPE
|
||||||
(run-with-store store
|
(with-store store
|
||||||
(mlet* %store-monad ((item (ensure-store-item file))
|
(run-with-store store
|
||||||
(profile (store-profile item)))
|
(mlet* %store-monad ((item (ensure-store-item file))
|
||||||
(if map-file
|
(profile (store-profile item)))
|
||||||
(begin
|
(if map-file
|
||||||
(profile->page-map profile map-file)
|
(begin
|
||||||
(return #t))
|
(profile->page-map profile map-file)
|
||||||
(display-profile* profile)))
|
(return #t))
|
||||||
#:system system)))
|
(display-profile* profile)))
|
||||||
|
#:system system))))
|
||||||
((files ...)
|
((files ...)
|
||||||
(leave (_ "too many arguments\n")))))))
|
(leave (_ "too many arguments\n")))))))
|
||||||
|
|
Loading…
Reference in New Issue