mirror of
https://codeberg.org/guix/guix.git
synced 2025-10-02 02:15:12 +00:00
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.
This commit is contained in:
parent
4befbe1a0e
commit
e51de34309
2 changed files with 11 additions and 0 deletions
|
@ -9,6 +9,7 @@
|
|||
;;; Copyright © 2017 Huang Ying <huang.ying.caritas@gmail.com>
|
||||
;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||||
;;; Copyright © 2019 Kyle Meyer <kyle@kyleam.com>
|
||||
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -1463,6 +1464,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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue