diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-29 14:01:07 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-29 14:01:07 -0300 |
| commit | 744de59c16836ab78adfa321228aa2ef833562e0 (patch) | |
| tree | e22e5830feadadb9f93e73dc5e9314309a768766 /src | |
| parent | packages.scm: Beautify formatting of messages (diff) | |
| download | packages-744de59c16836ab78adfa321228aa2ef833562e0.tar.gz packages-744de59c16836ab78adfa321228aa2ef833562e0.tar.xz | |
packages.scm: Fix missing escaping
Diffstat (limited to 'src')
| -rw-r--r-- | src/org/euandre/packages.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm index db6e380..ccc1177 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)) @@ -1005,3 +1005,4 @@ The default configuration should provide sane values for all of these." untls wscat papod) +(list cicd) |