mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-13 14:40:21 -05:00
build-system: linux-module: Directly use-module (guix platform).
* guix/build-system/linux-module.scm (system->arch): Remove module-ref shenanigans. Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
parent
dab819d5c4
commit
9e2b0dc9e5
1 changed files with 2 additions and 2 deletions
|
@ -28,6 +28,7 @@ (define-module (guix build-system linux-module)
|
|||
#:use-module (guix build-system)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix platform)
|
||||
#:use-module (ice-9 match)
|
||||
#:export (%linux-module-build-system-modules
|
||||
linux-module-build
|
||||
|
@ -50,8 +51,7 @@ (define (default-linux)
|
|||
(module-ref module 'linux-libre)))
|
||||
|
||||
(define (system->arch system)
|
||||
(let ((module (resolve-interface '(gnu platform))))
|
||||
((module-ref module 'lookup-platform-by-target-or-system) system)))
|
||||
(platform-linux-architecture (lookup-platform-by-target-or-system system)))
|
||||
|
||||
(define (make-linux-module-builder linux)
|
||||
(package
|
||||
|
|
Loading…
Reference in a new issue