From mboxrd@z Thu Jan  1 00:00:00 1970
From: Oleg Pykhalov <go.wigust@gmail.com>
Subject: Re: Guix upgrade leads to different hashes
Date: Fri, 06 Oct 2017 19:36:46 +0300
Message-ID: <87lgkojkrl.fsf@gmail.com>
References: <87o9pqz457.fsf@gmail.com> <87tvzhcpi3.fsf@gmail.com>
	<87wp4c7eo5.fsf@gmail.com> <87k20catud.fsf@gnu.org>
	<874lrf52k5.fsf@gmail.com> <87efqj9v0b.fsf@gnu.org>
	<87d162tpy9.fsf@gmail.com> <87d1617ndp.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:43142)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <go.wigust@gmail.com>) id 1e0VcO-0003fp-1D
	for help-guix@gnu.org; Fri, 06 Oct 2017 12:36:57 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <go.wigust@gmail.com>) id 1e0VcJ-0001fx-1N
	for help-guix@gnu.org; Fri, 06 Oct 2017 12:36:56 -0400
In-Reply-To: <87d1617ndp.fsf@gnu.org> ("Ludovic
	\=\?utf-8\?Q\?Court\=C3\=A8s\=22'\?\=
	\=\?utf-8\?Q\?s\?\= message of "Thu, 05 Oct 2017 15:08:50 +0200")
List-Id: <help-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-guix/>
List-Post: <mailto:help-guix@gnu.org>
List-Help: <mailto:help-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=subscribe>
Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org
Sender: "Help-Guix" <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
To: Ludovic =?utf-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Cc: Alex Kost <alezost@gmail.com>, help-guix@gnu.org

Hello Ludovic,

ludo@gnu.org (Ludovic Court=C3=A8s) writes:

[...]

> Could you check if this patch helps:
>
> diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
> index 4adc70522..0e365018a 100644
> --- a/guix/scripts/package.scm
> +++ b/guix/scripts/package.scm
> @@ -604,12 +604,12 @@ and upgrades."
>      (options->upgrade-predicate opts))
>=20=20
>    (define upgraded
> -    (fold (lambda (entry transaction)
> -            (if (upgrade? (manifest-entry-name entry))
> -                (transaction-upgrade-entry entry transaction)
> -                transaction))
> -          transaction
> -          (manifest-entries manifest)))
> +    (fold-right (lambda (entry transaction)
> +                  (if (upgrade? (manifest-entry-name entry))
> +                      (transaction-upgrade-entry entry transaction)
> +                      transaction))
> +                transaction
> +                (manifest-entries manifest)))
>=20=20
>    (define to-install
>      (filter-map (match-lambda

Nope, this didn't help :-(

Thanks,
Oleg.