Subject: Re: bug#20163: substitute-binary fails when attempting to reconfigure

From: [email-masked] (Ludovic Courtès)
Date: Sun, 22 Mar 2015 15:03:00 +0100

Mark H Weaver <[email-masked]> skribis:

> substitute-binary: In guix/scripts/substitute-binary.scm:
> substitute-binary:  634: 0 [#<procedure 9e74470 ()>]
> substitute-binary: 
> substitute-binary: guix/scripts/substitute-binary.scm:634:2: In procedure #<procedure 9e74470 ()>:
> substitute-binary: guix/scripts/substitute-binary.scm:634:2: Throw to key `match-error' with args `("match" "no matching pattern" ())'.

This sounds possibly related to commit 41c45e7.

> The 'guix' command being run here is using 'pre-inst-env' within a git
> checkout that's on 9d297fa but with some local commits added including
> 'wip-http-pipelining'.  The 'guix-daemon' being run is from
> guix-0.8.1.07157e8, which I suppose is using its own copy of 'guix
> substitute' (right?).

Yes, on GuixSD the daemon is using its own copy of ‘guix substitute’,
that is 07157e8.

So the problem could have to do with what the client passes with
‘set-build-options’, although I don’t know what’s going on.  Could you
try something like this:

diff --git a/guix/store.scm b/guix/store.scm
index 45c555b..35cb680 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -487,7 +487,7 @@ encoding conversion errors."
       (let ((pairs `(,@(if timeout
                            `(("build-timeout" . ,(number->string timeout)))
                            '())
-                     ("substitute-urls" . ,(string-join substitute-urls)))))
+                     ("substitute-urls" . ,(pk 'surls (string-join substitute-urls))))))
         (send (string-pairs pairs))))
     (let loop ((done? (process-stderr server)))
       (or done? (process-stderr server)))))

Thanks,
Ludo’.