02/03: build-system: linux-module: Directly use-module (guix platform).

[guix-commits]

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