aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTomas Volf <~@wolfsden.cz>2025-05-18 15:39:34 +0200
committerLudovic Courtès <ludo@gnu.org>2025-05-18 22:55:54 +0200
commit8654aecf741e88ce882f82f2eebc594e2e7ccb3f (patch)
tree5f00565748589dbdd76e426afda7e886f6d4f750
parente98153b96c9a90d91db5421fe431b384602d1c9d (diff)
downloadguix-8654aecf741e88ce882f82f2eebc594e2e7ccb3f.tar.gz
guix-8654aecf741e88ce882f82f2eebc594e2e7ccb3f.zip
environment: Use inherit for new mapping.
* guix/scripts/environment.scm (override-user-mappings): Use inherit. Change-Id: Iadd9b838f6442a8080998ed7e07414db562068bf Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--guix/scripts/environment.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 7103fdaf20..3c66906793 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -989,9 +989,8 @@ otherwise, return MAPPINGS."
(let ((target (file-system-mapping-target mapping)))
(if (string-prefix? home target)
(file-system-mapping
- (source (file-system-mapping-source mapping))
- (target (override-user-dir user home target))
- (writable? (file-system-mapping-writable? mapping)))
+ (inherit mapping)
+ (target (override-user-dir user home target)))
mapping)))
mappings)))