diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2016-05-31 22:11:35 +0300 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2016-05-31 22:11:35 +0300 |
| commit | d5047266a952b705c22ad68249e8515d3160e122 (patch) | |
| tree | 3d527cce8471c4cd39caed60a40b4382a5e3392c | |
| parent | c5d15d41b730a30c8580611c7aa94c5ce56141a1 (diff) | |
| download | guix-d5047266a952b705c22ad68249e8515d3160e122.tar.gz | |
gnu: scrot: Use 'modify-phases'.
* gnu/packages/xdisorg.scm (scrot)[arguments]: Use 'modify-phases'.
| -rw-r--r-- | gnu/packages/xdisorg.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 7aaf7f2c9f..6059da935f 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -399,16 +399,16 @@ move windows, switch between desktops, etc.).") (list (string-append "--mandir=" (assoc-ref %outputs "out") "/share/man")) - #:phases (alist-replace - 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (doc (string-append out "/share/doc/scrot"))) - (mkdir-p doc) - (zero? - (system* "make" "install" - (string-append "docsdir=" doc))))) - %standard-phases))) + #:phases + (modify-phases %standard-phases + (replace 'install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (doc (string-append out "/share/doc/scrot"))) + (mkdir-p doc) + (zero? + (system* "make" "install" + (string-append "docsdir=" doc))))))))) (inputs `(("libx11" ,libx11) ("giblib" ,giblib))) |