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

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