[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: build-system: linux-module: Directly use-module (guix platform).
From: |
guix-commits |
Subject: |
02/03: build-system: linux-module: Directly use-module (guix platform). |
Date: |
Wed, 25 May 2022 03:29:07 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit 9e2b0dc9e51505e409d5db58e658d7cdab314564
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Mon May 23 22:37:27 2022 +0200
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>
---
guix/build-system/linux-module.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/build-system/linux-module.scm
b/guix/build-system/linux-module.scm
index 761ebe25b1..94a293da13 100644
--- a/guix/build-system/linux-module.scm
+++ b/guix/build-system/linux-module.scm
@@ -28,6 +28,7 @@
#: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 @@
(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