Re: [PATCH 3/3] gnu: Add ghc.

[Mark H Weaver <mhw@netris.org>]

Federico Beffa <beffa@ieee.org> writes:

> From 52b593fd287a76b6a7ab04e5a3dc82bf4dc72d6b Mon Sep 17 00:00:00 2001
> From: Federico Beffa <beffa@fbengineering.ch>
> Date: Sat, 28 Mar 2015 20:09:37 +0100
> Subject: [PATCH] gnu: ghc: Fix i686 build.
>
> * gnu/packages/haskell.scm (ghc-bootstrap-7.8.4, ghc): Split
>   'ghc-bootstrap-7.8.4' into 'ghc-bootstrap-i686-7.8.4' and
>   'ghc-bootstrap-x86_64-7.8.4'. Select the appropriate input in 'ghc'.

How about this instead:

* gnu/packages/haskell.scm (ghc-bootstrap-7.8.4): Replace with ...
  (ghc-bootstrap-x86_64-7.8.4, ghc-bootstrap-i686-7.8.4): ... these.
  (ghc)[native-inputs]: Select the appropriate bootstrap.

> diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm
> index 183d0eb..46a4b4f 100644
> --- a/gnu/packages/haskell.scm
> +++ b/gnu/packages/haskell.scm
> @@ -33,22 +33,23 @@
>    #:use-module (gnu packages ncurses)
>    #:use-module (gnu packages python))
>  
> -;; We use bootstrap binaries with a fix version which can be used to build
> -;; more versions of the GHC compiler.
> -(define ghc-bootstrap-7.8.4
> +(define ghc-bootstrap-x86_64-7.8.4
>    (origin
>      (method url-fetch)
> -    (uri (string-append "https://www.haskell.org/ghc/dist/"
> -                        "7.8.4/ghc-7.8.4-"
> -                        (if (string-match "x86_64" (%current-system))
> -                            "x86_64"
> -                            "i386")
> -                        "-unknown-linux-deb7.tar.xz"))
> +    (uri
> +     "https://www.haskell.org/ghc/dist/7.8.4/ghc-7.8.4-x86_64-unknown-linux-deb7.tar.xz")
>      (sha256
>       (base32
> -      (if (string-match "x86_64" (%current-system))
> -          "13azsl53xgj20mi1hj9x0xb32vvcvs6cpmvwx6znxhas7blh0bpn"
> -          "0wj5s435j0zgww70bj1d3f6wvnnpzlxwvwcyh2qv4qjq5z8j64kg")))))
> +          "13azsl53xgj20mi1hj9x0xb32vvcvs6cpmvwx6znxhas7blh0bpn"))))

Now that the 'if' is gone, please indent the hash so that the open quote
is under the 'b' in 'base32'.

Otherwise it looks good to me.  Okay to push with these changes.

    Thanks!
      Mark