guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Heads-up: New dependency on Guile-Gcrypt


From: Ludovic Courtès
Subject: Re: Heads-up: New dependency on Guile-Gcrypt
Date: Wed, 05 Sep 2018 22:58:17 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/26.1 (gnu/linux)

Hi Paul,

Paul Garlick <address@hidden> skribis:

>> ‘guix pull’ will happily perform the transition.
>
> For me, I have an older Guix (16th May) that fails to install guile-
> gcrypt.  As root:
>
> $ guix --version
> guix (GNU Guix) 6f84dc4314cd84550d9fc7e7afa11c495edc45a5
>
> When I try 'guix pull' there is an attempt to build guile-gcrypt
> locally that fails with the message './configure:  No such file or
> directory'.  I can see that the build procedure moves from the 'unpack'
> phase straight to the 'patch-usr-bin-file' phase with no 'bootstrap'
> phase in between.

Hmm…

> Aha, another chicken-and-egg, I thought; my older Guix does not have a
> 'bootstrap' phase.  However, I can see that the commit for adding the
> new phase was made on 11th March, so perhaps 'guix pull' is failing for
> a different reason.

Indeed, that may well be the reason.  Can you try to apply the patch
below in a local branch, and then run “make as-derivation”?

TIA, and apologies for the breakage!

Ludo’.

diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index f472724f1..f91b43987 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -216,6 +216,16 @@ person's version identifier."
                    "1gir7ifknbmbvjlql5j6wzk7bkb5lnmq80q59ngz43hhpclrk5k3"))
                  (file-name (string-append name "-" version ".tar.gz"))))
        (build-system gnu-build-system)
+       (arguments
+        ;; The 'bootstrap' phase appeared in 'core-updates', which was merged
+        ;; into 'master' ca. June 2018.
+        '(#:phases (modify-phases %standard-phases
+                     (delete 'bootstrap)
+                     (add-before 'configure 'bootstrap
+                       (lambda _
+                         (unless (zero? (system* "autoreconf" "-vfi"))
+                           (error "autoreconf failed"))
+                         #t)))))
        (native-inputs
         `(("pkg-config" ,(specification->package "pkg-config"))
           ("autoconf" ,(specification->package "autoconf"))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]