From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Subject: bug#37596: =?UTF-8?Q?=E2=80=98guix?= system
 =?UTF-8?Q?roll-back=E2=80=99_?= =?UTF-8?Q?doesn=E2=80=99t?= reload services
Date: Thu, 03 Oct 2019 11:09:48 +0200
Message-ID: <87wodmyz37.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:46063)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1iFx7b-0000JM-Ag
 for bug-guix@gnu.org; Thu, 03 Oct 2019 05:10:04 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1iFx7a-0002D8-Ej
 for bug-guix@gnu.org; Thu, 03 Oct 2019 05:10:03 -0400
Received: from debbugs.gnu.org ([209.51.188.43]:58194)
 by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
 (Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
 id 1iFx7a-0002D1-BM
 for bug-guix@gnu.org; Thu, 03 Oct 2019 05:10:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
 (envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1iFx7a-0003C5-2k
 for bug-guix@gnu.org; Thu, 03 Oct 2019 05:10:02 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.37596.B.157009379812261@debbugs.gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:46035)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <ludo@gnu.org>) id 1iFx7R-0000JD-FM
 for bug-Guix@gnu.org; Thu, 03 Oct 2019 05:09:54 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:40941)
 by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
 id 1iFx7R-00026V-Bw
 for bug-Guix@gnu.org; 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@gnu.org>) id 1iFx7O-0005pX-4k
 for bug-Guix@gnu.org; Thu, 03 Oct 2019 05:09:52 -0400
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/bug-guix>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
 <mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: bug-Guix@gnu.org

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.