diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2018-05-30 14:53:23 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2018-05-30 14:54:53 +0200 |
commit | 80c0f69c500349855de6489cfb25e245b01620c2 (patch) | |
tree | 51d6c2f1885f2f9ce3d2e6c3d19f2e606ea4bd4a /gnu | |
parent | bc73f673e80e9134ee7620516f2e29c0c46db35f (diff) | |
download | guix-80c0f69c500349855de6489cfb25e245b01620c2.tar.gz |
gnu: emms: Fix build.
* gnu/packages/emacs.scm (emms)[arguments]: Reset time stamps of files to be gzipped; let post-install phase return #t.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/emacs.scm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index 79816e9aaa..9c799aeffe 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -908,7 +908,8 @@ provides an optional IDE-like error list.") (arguments `(#:modules ((guix build gnu-build-system) (guix build utils) - (guix build emacs-utils)) + (guix build emacs-utils) + (ice-9 ftw)) #:imported-modules (,@%gnu-build-system-modules (guix build emacs-utils)) @@ -971,13 +972,21 @@ provides an optional IDE-like error list.") (man1 (string-append out "/share/man/man1"))) (mkdir-p bin) (mkdir-p man1) + + ;; Ensure that files are not rejected by gzip + (let ((early-1980 315619200)) ; 1980-01-02 UTC + (ftw "." (lambda (file stat flag) + (unless (<= early-1980 (stat:mtime stat)) + (utime file early-1980 early-1980)) + #t))) #t))) (add-after 'install 'post-install (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (symlink "emms-auto.el" (string-append out "/share/emacs/site-lisp/" - "emms-autoloads.el")))))) + "emms-autoloads.el"))) + #t))) #:tests? #f)) (native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils) ("texinfo" ,texinfo))) |