diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2016-12-19 21:26:39 +0100 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2016-12-20 05:36:57 +0100 |
commit | 707ee3247162062ff08ff5fd0aa569d00e914f9d (patch) | |
tree | 93c3f1300add9c5bf1d8f9e6e07e5bc3bd5a2d3b /gnu/packages | |
parent | f87b8e25c30a7d2b0281cf04645cf3f50f81fa1b (diff) | |
download | guix-707ee3247162062ff08ff5fd0aa569d00e914f9d.tar guix-707ee3247162062ff08ff5fd0aa569d00e914f9d.tar.gz |
gnu: aspell-dictionary: Use ‘modify-phases’ syntax.
* gnu/packages/aspell.scm (aspell-dictionary)[arguments]: Use
‘modify-phases’.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/aspell.scm | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/gnu/packages/aspell.scm b/gnu/packages/aspell.scm index 01a799f9c6..4482138958 100644 --- a/gnu/packages/aspell.scm +++ b/gnu/packages/aspell.scm @@ -66,7 +66,8 @@ dictionaries, including personal ones.") ;;; ;;; Dictionaries. ;;; -;;; Use 'export ASPELL_CONF="dict-dir $HOME/.guix-profile/lib/aspell"' to use them. +;;; Use 'export ASPELL_CONF="dict-dir $HOME/.guix-profile/lib/aspell"' to use +;;; them. ;;; (define* (aspell-dictionary dict-name full-name @@ -82,16 +83,17 @@ dictionaries, including personal ones.") (sha256 sha256))) (build-system gnu-build-system) (arguments - `(#:phases (alist-replace - 'configure - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (zero? (system* "./configure")))) - %standard-phases) - #:make-flags (let ((out (assoc-ref %outputs "out"))) - (list (string-append "dictdir=" out "/lib/aspell") - (string-append "datadir=" out "/lib/aspell"))) - #:tests? #f)) + `(#:phases + (modify-phases %standard-phases + (replace 'configure + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (zero? (system* "./configure")))))) + #:make-flags + (let ((out (assoc-ref %outputs "out"))) + (list (string-append "dictdir=" out "/lib/aspell") + (string-append "datadir=" out "/lib/aspell"))) + #:tests? #f)) (native-inputs `(("aspell" ,aspell) ("which" ,which))) (synopsis (string-append full-name " dictionary for GNU Aspell")) ; XXX: i18n |