This is an automated email from the git hooks/post-receive script.
guix_mirror_bot pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new e00439c93e services: guix: Pretty print /etc/guix/channels.scm.
e00439c93e is described below
commit e00439c93e097fe18f08f48e930aa1d6ad7d474c
Author: Hilton Chain <[email protected]>
AuthorDate: Sat Jan 17 16:44:34 2026 +0800
services: guix: Pretty print /etc/guix/channels.scm.
* gnu/services/base.scm (install-channels-file): Pretty print channels.scm.
Change-Id: I692758a4f0a3f6e57b40c95a487c7c843245fe6c
---
gnu/services/base.scm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index adda5ab9bb..1117c761e8 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -104,6 +104,7 @@
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
#:use-module (ice-9 format)
+ #:use-module (ice-9 pretty-print)
#:re-export (user-processes-service-type ;backwards compatibility
%default-substitute-urls)
#:export (fstab-service-type
@@ -1903,8 +1904,12 @@ archive' public keys, with GUIX."
"Return a gexp with code to install CHANNELS, a list of channels, in
/etc/guix/channels.scm."
(define channels-file
- (scheme-file "channels.scm"
- `(list ,@(map channel->code channels))))
+ (plain-file "channels.scm"
+ (call-with-output-string
+ (lambda (port)
+ (pretty-print
+ `(list ,@(map channel->code channels))
+ port)))))
(with-imported-modules '((guix build utils))
#~(begin
