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="
(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)))