02/44: build-system/haskell: Support parallel builds.

[guix-commits]

rekado pushed a commit to branch wip-haskell-updates
in repository guix.

commit 7b68543364fb53470fe9ebec6336eacc949549ef
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Jun 16 22:25:48 2020 +0200

    build-system/haskell: Support parallel builds.
    
    * guix/build-system/haskell.scm (haskell-build): Add keyword PARALLEL-BUILD?
    and pass it on to the builder.
    * guix/build/haskell-build-system.scm (build): Accept keyword 
PARALLEL-BUILD?
    and pass the number of parallel jobs to GHC.
---
 guix/build-system/haskell.scm       | 2 ++
 guix/build/haskell-build-system.scm | 7 +++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix/build-system/haskell.scm b/guix/build-system/haskell.scm
index 1ec11c7..ab93c96 100644
--- a/guix/build-system/haskell.scm
+++ b/guix/build-system/haskell.scm
@@ -105,6 +105,7 @@ version REVISION."
                         (haddock-flags ''())
                         (tests? #t)
                         (test-target "test")
+                        (parallel-build? #t)
                         (configure-flags ''())
                         (phases '(@ (guix build haskell-build-system)
                                     %standard-phases))
@@ -138,6 +139,7 @@ provides a 'Setup.hs' file as its build system."
                       #:system ,system
                       #:test-target ,test-target
                       #:tests? ,tests?
+                      #:parallel-build? ,parallel-build?
                       #:haddock? ,haddock?
                       #:phases ,phases
                       #:outputs %outputs
diff --git a/guix/build/haskell-build-system.scm 
b/guix/build/haskell-build-system.scm
index 91f6213..5fd0c7d 100644
--- a/guix/build/haskell-build-system.scm
+++ b/guix/build/haskell-build-system.scm
@@ -121,9 +121,12 @@ and parameters ~s~%"
     (setenv "GHC_PACKAGE_PATH" ghc-path)
     #t))
 
-(define* (build #:rest empty)
+(define* (build #:key parallel-build? #:allow-other-keys)
   "Build a given Haskell package."
-  (run-setuphs "build" '()))
+  (run-setuphs "build"
+               (if parallel-build?
+                   `(,(string-append "--ghc-option=-j" (number->string 
(parallel-job-count))))
+                   '())))
 
 (define* (install #:rest empty)
   "Install a given Haskell package."