diff mbox series

[bug#55602,v2,2/2] build-system: linux-module: Directly use-module (guix platform).

Message ID 20220523203727.2588-3-dev@jpoiret.xyz
State Accepted
Headers show
Series Move (gnu platform) and friends to guix, and fix linux module build system. | expand

Checks

Context Check Description
cbaines/applying patch fail View Laminar job
cbaines/issue success View issue

Commit Message

Josselin Poiret May 23, 2022, 8:37 p.m. UTC 
* guix/build-system/linux-module.scm (system->arch): Remove module-ref
shenanigans.
---
 guix/build-system/linux-module.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
diff mbox series

Patch

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 @@  (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