bug#55591: closed ([PATCH] WIP: fix the linux build system)

[GNU bug Tracking System]

Your message dated Wed, 25 May 2022 09:37:13 +0200
with message-id <874k1exdue.fsf@gnu.org>
and subject line Re: bug#55591: [PATCH] WIP: fix the linux build system
has caused the debbugs.gnu.org bug report #55591,
regarding [PATCH] WIP: fix the linux build system
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs@gnu.org.)


-- 
55591: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=55591
GNU Bug Tracking System
Contact help-debbugs@gnu.org with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> [PATCH] WIP: fix the linux build system
>
>
>
>
> Date: 
>
> Mon, 23 May 2022 09:33:32 +0100
>
>
>
>
> ---
>  gnu/platform.scm                   | 6 +++++-
>  guix/build-system/linux-module.scm | 3 ++-
>  2 files changed, 7 insertions(+), 2 deletions(-)
>
> diff --git a/gnu/platform.scm b/gnu/platform.scm
> index fdc3685e7c..91a1854e68 100644
> --- a/gnu/platform.scm
> +++ b/gnu/platform.scm
> @@ -66,10 +66,14 @@ (define-record-type* <platform> platform make-platform
>    platform?
>    (target               platform-target)
>    (system               platform-system)
> -  (linux-architecture   platform-linux-architecture
> +  (linux-architecture   platform-linux-architecture*
>                          (default #f))
>    (glibc-dynamic-linker platform-glibc-dynamic-linker))
>  
> +;; Provide a procedure so this can be used via module-ref
> +(define (platform-linux-architecture platform)
> +  (platform-linux-architecture* platform))
> +
>  
>  ;;;
>  ;;; Platforms.
> diff --git a/guix/build-system/linux-module.scm 
> b/guix/build-system/linux-module.scm
> index 761ebe25b1..78a3ba95b2 100644
> --- a/guix/build-system/linux-module.scm
> +++ b/guix/build-system/linux-module.scm
> @@ -51,7 +51,8 @@ (define (default-linux)
>  
>  (define (system->arch system)
>    (let ((module (resolve-interface '(gnu platform))))
> -    ((module-ref module 'lookup-platform-by-target-or-system) system)))
> +    ((module-ref module 'platform-linux-architecture)
> +     ((module-ref module 'lookup-platform-by-target-or-system) system))))
>  
>  (define (make-linux-module-builder linux)
>    (package
> -- 
> 2.34.0
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#55591: [PATCH] WIP: fix the linux build system
>
>
>
>
> Date: 
>
> Wed, 25 May 2022 09:37:13 +0200
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux)
>
>
>
>
> Hello Chris,
>
> > +;; Provide a procedure so this can be used via module-ref
> > +(define (platform-linux-architecture platform)
> > +  (platform-linux-architecture* platform))
>
> Thanks for the patch! I guess it could have been a way to fix the
> issue. Josselin proposed to move the platform part to (guix platform)
> instead in the merged 55602 ticket.
>
> Closing that one as it is not needed anymore.
>
> Thanks,
>
> Mathieu
>
>
> --- End Message ---