~ruther/guix-local: build-system/haskell: Import build variables.

e6ab2f009762c727d651bc3ccf66605192a448a5 — Marius Bakke 5 years ago 68d280a

build-system/haskell: Import build variables.

* guix/build-system/haskell.scm (haskell-build): Wrap in WITH-BUILD-VARIABLES
in order to get %build-inputs and friends.

patch browse .tar.gz .zip

1 files changed, 19 insertions(+), 18 deletions(-)

M guix/build-system/haskell.scm

M guix/build-system/haskell.scm => guix/build-system/haskell.scm +19 -18

@@ 144,24 144,25 @@ provides a 'Setup.hs' file as its build system."
       #~(begin
           (use-modules #$@(sexp->gexp modules))
 
-          (haskell-build #:name #$name
-                         #:source #+source
-                         #:cabal-revision #$(assoc-ref inputs
-                                                       "cabal-revision")
-                         #:configure-flags #$configure-flags
-                         #:extra-directories #$extra-directories
-                         #:haddock-flags #$haddock-flags
-                         #:system #$system
-                         #:test-target #$test-target
-                         #:tests? #$tests?
-                         #:parallel-build? #$parallel-build?
-                         #:haddock? #$haddock?
-                         #:phases #$phases
-                         #:outputs #$(outputs->gexp outputs)
-                         #:search-paths '#$(sexp->gexp
-                                            (map search-path-specification->sexp
-                                                 search-paths))
-                         #:inputs #$(input-tuples->gexp inputs)))))
+          #$(with-build-variables inputs outputs
+              #~(haskell-build #:name #$name
+                               #:source #+source
+                               #:cabal-revision #$(assoc-ref inputs "cabal-revision")
+                               #:configure-flags #$configure-flags
+                               #:extra-directories #$extra-directories
+                               #:extra-directories #$extra-directories
+                               #:haddock-flags #$haddock-flags
+                               #:system #$system
+                               #:test-target #$test-target
+                               #:tests? #$tests?
+                               #:parallel-build? #$parallel-build?
+                               #:haddock? #$haddock?
+                               #:phases #$phases
+                               #:outputs #$(outputs->gexp outputs)
+                               #:search-paths '#$(sexp->gexp
+                                                  (map search-path-specification->sexp
+                                                       search-paths))
+                               #:inputs #$(input-tuples->gexp inputs))))))
 
   (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
                                                   system #:graft? #f)))