ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lpsolve: Fail as early as possible.

Browse source 
* gnu/packages/maths.scm (lpsolve)[arguments]: In 'build' phase, check
the return value of 'system*' and honor it.
This commit is contained in:
Ludovic Courtès 2016-07-26 00:40:54 +02:00
parent e83a13faa2
commit 6689d09457
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/maths.scm
View file

@ -2198,11 +2198,10 @@ (define-public lpsolve
(delete 'configure)
(replace 'build
(lambda _
(with-directory-excursion "lpsolve55"
(system* "bash" "ccc"))
(with-directory-excursion "lp_solve"
(system* "bash" "ccc"))
#t))
(and (with-directory-excursion "lpsolve55"
(zero? (system* "bash" "ccc")))
(with-directory-excursion "lp_solve"
(zero? (system* "bash" "ccc"))))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))