diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-11-16 13:23:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-11-16 14:38:01 +0100 |
| commit | c322d97832081e6e1913c6311616030d1fad4ee2 (patch) | |
| tree | 94c049cc3951f8386ee0c19e0f7b4289c31c21ca | |
| parent | e5d8302b2ce596a0518ea5bd79b338f68a3246eb (diff) | |
| download | guix-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.
| -rw-r--r-- | gnu/home/services/shells.scm | 6 |
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 |