05/06: size: Gracefully handle EPIPE.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit d2f2c8f126ebc400f016781805c76683cc364c18
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jul 15 18:05:29 2015 +0200

    size: Gracefully handle EPIPE.
    
    * guix/scripts/size.scm (guix-size): Wrap body in 'leave-on-EPIPE'.
---
 guix/scripts/size.scm |   21 +++++++++++----------
 1 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/guix/scripts/size.scm b/guix/scripts/size.scm
index 13341fd..1339742 100644
--- a/guix/scripts/size.scm
+++ b/guix/scripts/size.scm
@@ -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")))))))