aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2016-05-31 22:11:35 +0300
committerEfraim Flashner <efraim@flashner.co.il>2016-05-31 22:11:35 +0300
commitd5047266a952b705c22ad68249e8515d3160e122 (patch)
tree3d527cce8471c4cd39caed60a40b4382a5e3392c
parentc5d15d41b730a30c8580611c7aa94c5ce56141a1 (diff)
downloadguix-d5047266a952b705c22ad68249e8515d3160e122.tar
guix-d5047266a952b705c22ad68249e8515d3160e122.tar.gz
gnu: scrot: Use 'modify-phases'.
* gnu/packages/xdisorg.scm (scrot)[arguments]: Use 'modify-phases'.
-rw-r--r--gnu/packages/xdisorg.scm20
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)))