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

gnu: hypre: Unconditionally return #T from build phases.

Browse source 
* gnu/packages/maths.scm (hypre)[arguments]: Use INVOKE and unconditionally
return #T from build phases.
This commit is contained in:
Ricardo Wurmus 2019-04-28 11:43:36 +02:00
parent 9cd82b1c9d
commit 6b1c7ac8ed
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/maths.scm
View file

@ -3751,16 +3751,14 @@ (define-public hypre
(lambda _
(setenv "LD_LIBRARY_PATH" (string-append (getcwd) "/hypre/lib"))
(setenv "PATH" (string-append "." ":" (getenv "PATH")))
(and (system* "make" "check" "CHECKRUN=")
(fold (lambda (filename result)
(and result
(let ((size (stat:size (stat filename))))
(when (not (zero? size))
(format #t "~a size ~d; error indication~%"
filename size))
(zero? size))))
#t
(find-files "test" ".*\\.err$")))))
(invoke "make" "check" "CHECKRUN=")
(for-each (lambda (filename)
(let ((size (stat:size (stat filename))))
(when (positive? size)
(error (format #f "~a size ~d; error indication~%"
filename size)))))
(find-files "test" ".*\\.err$"))
#t))
(add-after 'install 'install-docs
(lambda* (#:key outputs #:allow-other-keys)
;; Custom install because docs/Makefile doesn't honor ${docdir}.