mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-22 09:05:54 +02:00
gnu: hypre: Unconditionally return #T from build phases.
* gnu/packages/maths.scm (hypre)[arguments]: Use INVOKE and unconditionally return #T from build phases.
This commit is contained in:
+8
-10
@@ -3751,16 +3751,14 @@ set.")
|
||||
(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}.
|
||||
|
||||
Reference in New Issue
Block a user