[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/06: size: Gracefully handle EPIPE.
From: |
Ludovic Courtès |
Subject: |
05/06: size: Gracefully handle EPIPE. |
Date: |
Wed, 15 Jul 2015 21:57:54 +0000 |
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")))))))
- branch master updated (b76c415 -> 68e88a0), Ludovic Courtès, 2015/07/15
- 05/06: size: Gracefully handle EPIPE.,
Ludovic Courtès <=
- 06/06: gnu: Update livestreamer to 1.12.2., Ludovic Courtès, 2015/07/15
- 04/06: ui: Add 'leave-on-EPIPE'., Ludovic Courtès, 2015/07/15
- 01/06: doc: Reinstate bit about creating build accounts., Ludovic Courtès, 2015/07/15
- 02/06: system: Make /dev/kvm 660., Ludovic Courtès, 2015/07/15
- 03/06: Add 'guix-daemon.service' file for systemd., Ludovic Courtès, 2015/07/15