diff options
| -rw-r--r-- | etc/guix/home.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/etc/guix/home.scm b/etc/guix/home.scm index ddf1266..661a181 100644 --- a/etc/guix/home.scm +++ b/etc/guix/home.scm @@ -31,15 +31,15 @@ (name "msmtp-non-hardcoded") (arguments (substitute-keyword-arguments (package-arguments msmtp) - ((#:phases phases '%standard-phases) - `(modify-phases ,phases - (add-after 'install-additional-files 'patch-hardcoded-paths - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out"))) - (substitute* (string-append out "/bin/msmtpq") - (("^LOG=.*$") "LOG=$XDG_LOG_HOME/msmtpq.log\n") - (("^Q=.*$") "Q=$XDG_DATA_HOME/msmtp/queue\n") - (("mkdir -m 0700 \"\\$Q\"") "mkdir -p -m 0700 \"$Q\""))))))))))) + ((#:phases phases) + #~(modify-phases #$phases + (add-after 'install-additional-files 'patch-hardcoded-paths + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (substitute* (string-append out "/bin/msmtpq") + (("^LOG=.*$") "LOG=$XDG_LOG_HOME/msmtpq.log\n") + (("^Q=.*$") "Q=$XDG_DATA_HOME/msmtp/queue\n") + (("mkdir -m 0700 \"\\$Q\"") "mkdir -p -m 0700 \"$Q\""))))))))))) (define (with-options pkg bin opts) (package |