diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-29 13:47:04 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-29 13:49:28 -0300 |
| commit | 5e44513d36f6f2590b15a6c229c2c63961902c49 (patch) | |
| tree | b906db09377e5c16870e64805c98f3c4afae9a3a /src | |
| parent | packages.scm: Conditionally delete symlinked file (diff) | |
| download | packages-5e44513d36f6f2590b15a6c229c2c63961902c49.tar.gz packages-5e44513d36f6f2590b15a6c229c2c63961902c49.tar.xz | |
packages.scm: Beautify formatting of messages
Diffstat (limited to 'src')
| -rw-r--r-- | src/org/euandre/packages.scm | 10 |
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)) |