@@ 174,7 174,13 @@
(guix build utils)
(guix build union))
(let ((inputs-paths
- (list #$@(collect-cross-profile-target-inputs cross-profile)
+ (list #$@(map
+ (lambda (package)
+ (cross-package-job
+ (package package)
+ (system host-system)
+ (target #f)))
+ (collect-cross-profile-target-inputs cross-profile))
#$@(map (lambda (package)
(cross-package-job
(package package)
@@ 184,7 190,13 @@
(cross-profile-path
(string-append #$output "/cross/" #$(or target-system "native") "/" #$cross-profile-name))
(native-inputs-paths
- (list #$@(collect-cross-profile-native-inputs cross-profile))))
+ (list #$@(map
+ (lambda (package)
+ (cross-package-job
+ (package package)
+ (system host-system)
+ (target #f)))
+ (collect-cross-profile-native-inputs cross-profile)))))
(union-build #$output native-inputs-paths)
(mkdir-p (dirname cross-profile-path))