futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build-system/haskell: Make phases fail on error.

Browse Source 
* guix/build/haskell-build-system.scm (configure): Make it fail on error.
(run-setuphs): Make it fail on error.
This commit is contained in:
Danny Milosavljevic 2018-07-11 02:32:58 +02:00
parent 57ac5261fe
commit a59b0fa2d7
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/build/haskell-build-system.scm
View File

@ -66,7 +66,7 @@
(format #t "running \"runhaskell Setup.hs\" with command ~s \
and parameters ~s~%"
command params)
(zero? (apply system* "runhaskell" setup-file command params)))
(apply invoke "runhaskell" setup-file command params))
(error "no Setup.hs nor Setup.lhs found"))))
(define* (configure #:key outputs inputs tests? (configure-flags '())
@ -114,7 +114,8 @@ and parameters ~s~%"
(setenv "CONFIG_SHELL" "sh"))
(run-setuphs "configure" params)
(setenv "GHC_PACKAGE_PATH" ghc-path)))
(setenv "GHC_PACKAGE_PATH" ghc-path)
#t))
(define* (build #:rest empty)
"Build a given Haskell package."