GNU bug report logs - #37596
'guix system switch-generation' does not reload Shepherd services

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 3 Oct 2019 09:09:58 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Oct 03 05:09:58 2019
Received: from localhost ([127.0.0.1]:38782 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1iFx7V-0003Bh-KU
	for submit <at> debbugs.gnu.org; Thu, 03 Oct 2019 05:09:57 -0400
Received: from lists.gnu.org ([209.51.188.17]:36896)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <ludo@HIDDEN>) id 1iFx7S-0003BY-CX
 for submit <at> debbugs.gnu.org; Thu, 03 Oct 2019 05:09:55 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:46035)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@HIDDEN>) id 1iFx7R-0000JD-FM
 for bug-Guix@HIDDEN; Thu, 03 Oct 2019 05:09:54 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.5 required=5.0 tests=ALL_TRUSTED,BAYES_05
 autolearn=disabled version=3.3.2
Received: from fencepost.gnu.org ([2001:470:142:3::e]:40941)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@HIDDEN>)
 id 1iFx7R-00026V-Bw
 for bug-Guix@HIDDEN; Thu, 03 Oct 2019 05:09:53 -0400
Received: from [2001:660:6102:320:e120:2c8f:8909:cdfe] (port=60972 helo=ribbon)
 by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
 (Exim 4.82) (envelope-from <ludo@HIDDEN>) id 1iFx7O-0005pX-4k
 for bug-Guix@HIDDEN; Thu, 03 Oct 2019 05:09:52 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: bug-Guix@HIDDEN
Subject: =?utf-8?Q?=E2=80=98guix?= system =?utf-8?Q?roll-back=E2=80=99_doe?=
 =?utf-8?Q?sn=E2=80=99t?= reload services
X-URL: http://www.fdn.fr/~lcourtes/
X-Revolutionary-Date: 12 =?utf-8?Q?Vend=C3=A9miaire?= an 228 de la
 =?utf-8?Q?R=C3=A9volution?=
X-PGP-Key-ID: 0x090B11993D9AEBB5
X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc
X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5
X-OS: x86_64-pc-linux-gnu
Date: Thu, 03 Oct 2019 11:09:48 +0200
Message-ID: <87wodmyz37.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-Spam-Score: -2.3 (--)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)

Hello,

=E2=80=98guix system roll-back=E2=80=99 and =E2=80=98switch-generation=E2=
=80=99 don=E2=80=99t reload services
and don=E2=80=99t run activation scripts like =E2=80=98guix system reconfig=
ure=E2=80=99 does.
Indeed:

--8<---------------cut here---------------start------------->8---
(define (switch-to-system-generation store spec)
  "Switch the system profile to the generation specified by SPEC, and
re-install bootloader with a configuration file that uses the specified sys=
tem
generation as its default entry.  STORE is an open connection to the store."
  (let ((number (relative-generation-spec->number %system-profile spec)))
    (if number
        (begin
          (reinstall-bootloader store number)
          (switch-to-generation* %system-profile number))
        (leave (G_ "cannot switch to system generation '~a'~%") spec))))
--8<---------------cut here---------------end--------------->8---

Ludo=E2=80=99.