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

gnu: opam: Use modify-phases. 

* gnu/packages/ocaml.scm (opam)[arguments]: Use modify-phases.
This commit is contained in:
Eric Bavier 2016-08-22 12:27:06 -05:00
parent 1d33b9eaa9
commit 2385cab164
No known key found for this signature in database
GPG Key ID: 1EBBD204781F962C
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/packages/ocaml.scm
View File

@ -176,20 +176,18 @@ functional, imperative and object-oriented styles of programming.")
;; …/_obuild/opam/opam.asm install P1' failed. ;; …/_obuild/opam/opam.asm install P1' failed.
#:tests? #f #:tests? #f
#:phases (alist-cons-before #:phases (modify-phases %standard-phases
'build 'pre-build (add-before 'build 'pre-build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs make-flags #:allow-other-keys)
(let ((bash (assoc-ref inputs "bash"))) (let ((bash (assoc-ref inputs "bash")))
(substitute* "src/core/opamSystem.ml" (substitute* "src/core/opamSystem.ml"
(("\"/bin/sh\"") (("\"/bin/sh\"")
(string-append "\"" bash "/bin/sh\""))))) (string-append "\"" bash "/bin/sh\""))))))
(alist-cons-before (add-before 'check 'pre-check
'check 'pre-check (lambda _
(lambda _ (setenv "HOME" (getcwd))
(setenv "HOME" (getcwd)) (and (system "git config --global user.email guix@gnu.org")
(and (system "git config --global user.email guix@gnu.org") (system "git config --global user.name Guix")))))))
(system "git config --global user.name Guix")))
%standard-phases))))
(native-inputs (native-inputs
`(("git" ,git) ;for the tests `(("git" ,git) ;for the tests
("python" ,python))) ;for the tests ("python" ,python))) ;for the tests