From 9e2b0dc9e51505e409d5db58e658d7cdab314564 Mon Sep 17 00:00:00 2001 From: Josselin Poiret Date: Mon, 23 May 2022 22:37:27 +0200 Subject: 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 --- guix/build-system/linux-module.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix') 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 -- cgit v1.2.3