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

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

Change-Id: I692758a4f0a3f6e57b40c95a487c7c843245fe6c

1 files changed, 7 insertions, 2 deletions

diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index adda5ab9bb9..1117c761e84 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