packages.scm: Beautify formatting of messages

1 files changed, 5 insertions, 5 deletions

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index ea1117b..db6e380 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -463,7 +463,7 @@
       (use-modules (guix build utils))
       (when #$log-file
         (format (current-error-port)
-         "Creating ~a log directory for '~a'.~%" #$name #$log-file)
+         "Creating ~a log directory for "~a".~%" #$name #$log-file)
         (mkdir-p (dirname #$log-file))
         (when (not (file-exists? #$log-file))
           (call-with-output-file #$log-file (const #t)))
@@ -471,13 +471,13 @@
       (let ((user (getpwnam #$user)))
         (when #$data-directory
           (format (current-error-port)
-           "Creating ~a data directory '~a'.~%" #$name #$data-directory)
+           "Creating ~a data directory "~a".~%" #$name #$data-directory)
           (mkdir-p #$data-directory)
           (chown #$data-directory (passwd:uid user) (passwd:gid user))
           (chmod #$data-directory #o750))
         (when #$run-directory
           (format (current-error-port)
-           "Creating ~a run directory '~a'.~%" #$name #$run-directory)
+           "Creating ~a run directory "~a".~%" #$name #$run-directory)
           (mkdir-p #$run-directory)
           (chown #$run-directory (passwd:uid user) (passwd:gid user))
           (chmod #$run-directory #o755)))))
@@ -583,11 +583,11 @@
           #$(activation-gexp "syskeep" "root" log-file #f #f)
           (define (dir target)
             (format (current-error-port)
-             "Creating directory: ~a.~%" target)
+             "Creating directory: "~a".~%" target)
             (mkdir-p target))
           (define (link from to)
             (format (current-error-port)
-             "Symlink: ~a -> ~a~%" to from)
+             "Symlink: "~a" -> "~a".~%" to from)
             (when (file-exists? to)
               (delete-file to))
             (symlink from to))