From 181e0dddd68dc58190bd4831ea5d1ecbd420d83a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 20 Jul 2020 16:11:24 +0200
Subject: pack: 'self-contained-tarball' runs derivation in a UTF-8local.

* guix/scripts/pack.scm (self-contained-tarball)
[set-utf8-locale]: New variable.
[build]: Use it.
* tests/pack.scm ("self-contained-tarball"): Use a <profile> record
instead of 'profile-derivation'.
---
 tests/pack.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tests/pack.scm')

diff --git a/tests/pack.scm b/tests/pack.scm
index 0c1406e687..cb7e110d18 100644
--- a/tests/pack.scm
+++ b/tests/pack.scm
@@ -57,10 +57,10 @@
 (unless (network-reachable?) (test-skip 1))
 (test-assertm "self-contained-tarball" %store
   (mlet* %store-monad
-      ((profile (profile-derivation (packages->manifest
-                                     (list %bootstrap-guile))
-                                    #:hooks '()
-                                    #:locales? #f))
+      ((profile -> (profile
+                    (content (packages->manifest (list %bootstrap-guile)))
+                    (hooks '())
+                    (locales? #f)))
        (tarball (self-contained-tarball "pack" profile
                                         #:symlinks '(("/bin/Guile"
                                                       -> "bin/guile"))
-- 
cgit v1.2.3