nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

size: Gracefully handle EPIPE. 

* guix/scripts/size.scm (guix-size): Wrap body in 'leave-on-EPIPE'.
master
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

21
guix/scripts/size.scm
View File

@ -280,15 +280,16 @@ Report the size of PACKAGE and its dependencies.\n"))
(()
(leave (_ "missing store item argument\n")))
((file)
(with-store store
(run-with-store store
(mlet* %store-monad ((item (ensure-store-item file))
(profile (store-profile item)))
(if map-file
(begin
(profile->page-map profile map-file)
(return #t))
(display-profile* profile)))
#:system system)))
(leave-on-EPIPE
(with-store store
(run-with-store store
(mlet* %store-monad ((item (ensure-store-item file))
(profile (store-profile item)))
(if map-file
(begin
(profile->page-map profile map-file)
(return #t))
(display-profile* profile)))
#:system system))))
((files ...)
(leave (_ "too many arguments\n")))))))