[no subject]

[Ludovic Courtès]

branch: master
commit 596b364f84d1e6cc1a6aaff0810e77fb61c86d7e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Sep 1 18:04:38 2023 +0200

    base: 'build-derivations&' UTF-8-encodes build logs.
    
    * src/cuirass/base.scm (build-derivations&): Set the encoding and
    conversion strategy of OUTPUT.
---
 src/cuirass/base.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index b53a494..075c49d 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -326,6 +326,11 @@ Essentially this procedure inverts the 
inversion-of-control that
       (lambda ()
         (catch #t
           (lambda ()
+            ;; String I/O primitives are going to be used on PORT so make it
+            ;; Unicode-capable and resilient to encoding issues.
+            (set-port-encoding! output "UTF-8")
+            (set-port-conversion-strategy! output 'substitute)
+
             (guard (c ((store-error? c)
                        (atomic-box-set! result c)))
               (parameterize ((current-build-output-port output))