diff options
| author | Mathieu Othacehe <[email protected]> | 2019-12-24 15:04:57 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <[email protected]> | 2019-12-26 20:02:16 +0100 |
| commit | 91be09de61c277d0f1b26cefcefcd0a7fae2e00d (patch) | |
| tree | 457a9acfd54b52ba3c33d4d9601b9bd6af669b71 | |
| parent | 3d8c77836b73ae8284c673eabdae7f0880d70a8d (diff) | |
profiles: Fix profile-derivation cross-compilation.
* guix/store.scm (current-target-system): New exported monadic procedure.
* guix/profiles.scm (profile-derivation): Set target at bind time using the
above procedure.
| -rw-r--r-- | guix/profiles.scm | 4 | ||||
| -rw-r--r-- | guix/store.scm | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index 987bab4e7f..d20f06e7b3 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -9,6 +9,7 @@ ;;; Copyright © 2017 Huang Ying <[email protected]> ;;; Copyright © 2017 Maxim Cournoyer <[email protected]> ;;; Copyright © 2019 Kyle Meyer <[email protected]> +;;; Copyright © 2019 Mathieu Othacehe <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1459,6 +1460,9 @@ are cross-built for TARGET." (mlet* %store-monad ((system (if system (return system) (current-system))) + (target (if target + (return target) + (current-target-system))) (ok? (if allow-collisions? (return #t) (check-for-collisions manifest system diff --git a/guix/store.scm b/guix/store.scm index cf25d347fc..f99fa581a8 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <[email protected]> ;;; Copyright © 2018 Jan Nieuwenhuizen <[email protected]> +;;; Copyright © 2019 Mathieu Othacehe <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -159,6 +160,7 @@ %guile-for-build current-system set-current-system + current-target-system text-file interned-file interned-file-tree @@ -1816,6 +1818,11 @@ the store." (lambda (state) (values (%current-system system) state))) +(define-inlinable (current-target-system) + ;; Consult the %CURRENT-TARGET-SYSTEM fluid at bind time. + (lambda (state) + (values (%current-target-system) state))) + (define %guile-for-build ;; The derivation of the Guile to be used within the build environment, ;; when using 'gexp->derivation' and co. |