From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: Guix upgrade leads to different hashes
Date: Thu, 05 Oct 2017 15:08:50 +0200
Message-ID: <87d1617ndp.fsf@gnu.org>
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>
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:41116)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1e05te-0005US-F3
	for help-guix@gnu.org; Thu, 05 Oct 2017 09:09:10 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1e05tV-00088g-1v
	for help-guix@gnu.org; Thu, 05 Oct 2017 09:09:02 -0400
In-Reply-To: <87d162tpy9.fsf@gmail.com> (Oleg Pykhalov's message of "Thu, 05
	Oct 2017 03:10:06 +0300")
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: Oleg Pykhalov <go.wigust@gmail.com>
Cc: Alex Kost <alezost@gmail.com>, help-guix@gnu.org

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

Howdy,

Oleg Pykhalov <go.wigust@gmail.com> skribis:

> ludo@gnu.org (Ludovic Court=C3=A8s) writes:
>
>> Hi Oleg,
>>
>> Oleg Pykhalov <go.wigust@gmail.com> skribis:
>>
>>> ludo@gnu.org (Ludovic Court=C3=A8s) writes:
>>>
>>> [...]
>>>
>>>> What does =E2=80=98guix package --list-generations=E2=80=99 show?  The=
 output is a diff
>>>> of the contents of each generation.
>>>
>>> My current generation before upgrade was 369.  After upgrade it's 370.
>>> No changes.
>>>
>>> Generation 369	Oct 03 2017 13:07:34
>>>  + emacs-git-auto-commit-mode 4.4.0 out
>>> /gnu/store/kcihgk3k9mgilbly0r7922qgkdgg2ji3-emacs-git-auto-commit-mode-=
4.4.0
>>>
>>> Generation 370	Oct 04 2017 00:42:07	(current)
>>
>> What about:
>>
>>   diff -u /var/guix/profiles/per-user/ludo/guix-profile-{369,370}-link/m=
anifest
>
> This has some info!

As I see it, it just reversed the order of entries.

Could you check if this patch helps:


--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline

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))
 
   (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)))
 
   (define to-install
     (filter-map (match-lambda

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: base64

DQpMdWRv4oCZLg0K
--=-=-=--