nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: scrot: Use 'modify-phases'. 

* gnu/packages/xdisorg.scm (scrot)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-05-31 22:11:35 +03:00
parent c5d15d41b7
commit d5047266a9
No known key found for this signature in database
GPG Key ID: F4C1D3917EACEE93
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gnu/packages/xdisorg.scm
View File

@ -399,16 +399,16 @@ move windows, switch between desktops, etc.).")
(list (string-append "--mandir=" (list (string-append "--mandir="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/share/man")) "/share/man"))
#:phases (alist-replace #:phases
'install (modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (replace 'install
(let* ((out (assoc-ref outputs "out")) (lambda* (#:key inputs outputs #:allow-other-keys)
(doc (string-append out "/share/doc/scrot"))) (let* ((out (assoc-ref outputs "out"))
(mkdir-p doc) (doc (string-append out "/share/doc/scrot")))
(zero? (mkdir-p doc)
(system* "make" "install" (zero?
(string-append "docsdir=" doc))))) (system* "make" "install"
%standard-phases))) (string-append "docsdir=" doc)))))))))
(inputs (inputs
`(("libx11" ,libx11) `(("libx11" ,libx11)
("giblib" ,giblib))) ("giblib" ,giblib)))