summaryrefslogtreecommitdiff
path: root/gnu/home
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-11-16 13:23:08 +0100
committerLudovic Courtès <ludo@gnu.org>2021-11-16 14:38:01 +0100
commitc322d97832081e6e1913c6311616030d1fad4ee2 (patch)
tree94c049cc3951f8386ee0c19e0f7b4289c31c21ca /gnu/home
parente5d8302b2ce596a0518ea5bd79b338f68a3246eb (diff)
downloadguix-patches-c322d97832081e6e1913c6311616030d1fad4ee2.tar
guix-patches-c322d97832081e6e1913c6311616030d1fad4ee2.tar.gz
home: services: bash: Emit 'extra-content' first again.
Fixes a regression introduced in 4b96998292442ec03024481c911d88f86c7c36b5 that would less to a 'tests/guix-home.sh' failure. * gnu/home/services/shells.scm (add-bash-configuration)[file-if-not-empty]: Move EXTRA-CONTENT first.
Diffstat (limited to 'gnu/home')
-rw-r--r--gnu/home/services/shells.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/home/services/shells.scm b/gnu/home/services/shells.scm
index 6b9ebe42e9..80f13a31b7 100644
--- a/gnu/home/services/shells.scm
+++ b/gnu/home/services/shells.scm
@@ -420,9 +420,9 @@ alias grep='grep --color=auto'\n")
(not (null? ((configuration-field-getter field-obj) config))))
`(,(object->snake-case-string file-name)
,(apply mixed-text-file
- (object->snake-case-string file-name)
- (cons (serialize-field field)
- (if extra-content extra-content '()))))
+ (object->snake-case-string file-name)
+ (append (or extra-content '())
+ (list (serialize-field field)))))
'())))
(filter