guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: packages: Set the port conversion strategy to 'error'.


From: Ludovic Courtès
Subject: 02/02: packages: Set the port conversion strategy to 'error'.
Date: Sat, 28 Feb 2015 00:10:58 +0000

civodul pushed a commit to branch core-updates
in repository guix.

commit 4db87162e68e58031d71597a86b253072e18e2ac
Author: Ludovic Courtès <address@hidden>
Date:   Sat Feb 28 01:10:24 2015 +0100

    packages: Set the port conversion strategy to 'error'.
    
    Suggested by Mark H Weaver.
    
    * guix/build/gnu-build-system.scm (gnu-build): Set
      %DEFAULT-PORT-CONVERSION-STRATEGY to 'error.
    * guix/packages.scm (patch-and-repack)[builder]: Likewise.
---
 guix/build/gnu-build-system.scm |    3 +++
 guix/packages.scm               |    3 +++
 2 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index a2bd9d4..5ae5371 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -499,6 +499,9 @@ in order.  Return #t if all the PHASES succeeded, #f 
otherwise."
   (setvbuf (current-output-port) _IOLBF)
   (setvbuf (current-error-port) _IOLBF)
 
+  ;; Encoding/decoding errors shouldn't be silent.
+  (fluid-set! %default-port-conversion-strategy 'error)
+
   ;; The trick is to #:allow-other-keys everywhere, so that each procedure in
   ;; PHASES can pick the keyword arguments it's interested in.
   (every (match-lambda
diff --git a/guix/packages.scm b/guix/packages.scm
index b72a6dd..fc52646 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -412,6 +412,9 @@ IMPORTED-MODULES specify modules to use/import for use by 
SNIPPET."
                     (srfi srfi-1)
                     (guix build utils))
 
+       ;; Encoding/decoding errors shouldn't be silent.
+       (fluid-set! %default-port-conversion-strategy 'error)
+
        (let ((locales (assoc-ref %build-inputs "locales"))
              (out     (assoc-ref %outputs "out"))
              (xz      (assoc-ref %build-inputs "xz"))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]