summary refs log tree commit diff
path: root/gnu
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
parente5d8302b2ce596a0518ea5bd79b338f68a3246eb (diff)
downloadguix-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')
-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