bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: guix: Pretty print /etc/guix/channels.scm.

Browse source 
* gnu/services/base.scm (install-channels-file): Pretty print channels.scm.

Change-Id: I692758a4f0a3f6e57b40c95a487c7c843245fe6c
This commit is contained in:
Hilton Chain 2026-01-17 16:44:34 +08:00
parent edb31b3c80
commit e00439c93e
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/base.scm
View file

@ -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