Re: Why does `system reconfigure` need to `pull`?

[45mg <45mg.writes@gmail.com>]

Hello again Guix,

Thanks, everyone, for the replies to my inital message. Reading through
them, I developed a hunch that that the issue might only occur when you
configure additional channels in your system configuration, and I think
I've been able to verify this.

Rutherther suggested that I share my configuration. I figured that my
sprawling multi-file configuration would present far more noise than
useful information - so, with much effort, I installed Guix into a VM,
then built up a minimal configuration from the initial template until I
could reproduce the issue.

As I suspected, the issue does not show up until you add additional
channels in your configuration file - in the case of the configuration
below, that means adding the `my-channels` definition and the
`modify-services` form. When you reconfigure after doing that, you
should see it updating the channel repositories as I originally
described.

--8<---------------cut here---------------start------------->8---
(use-modules (gnu)
             (gnu packages package-management)
             (guix channels))
(use-service-modules cups desktop networking ssh xorg)

(define my-channels
  (append
   (list (channel
          (name 'guix-science)
          (url "https://codeberg.org/guix-science/guix-science.git")
          (introduction
           (make-channel-introduction
            "b1fe5aaff3ab48e798a4cce02f0212bc91f423dc"
            (openpgp-fingerprint
             "CA4F 8CF4 37D7 478F DA05  5FD4 4213 7701 1A37 8446")))))
   %default-channels))

(operating-system
  (locale "en_US.utf8")
  (timezone "America/New_York")
  (keyboard-layout (keyboard-layout "us"))
  (host-name "guix-1")

  (users (cons* (user-account
                 (name "me")
                 (comment "Me")
                 (group "users")
                 (home-directory "/home/me")
                 (supplementary-groups '("wheel" "netdev" "audio" "video")))
                %base-user-accounts))

  (packages (append (specifications->packages (list "tmux" "neovim"))
                    %base-packages))

  (services
   (append (list
            (service openssh-service-type)
            (service network-manager-service-type)
            (service wpa-supplicant-service-type)
            (service ntp-service-type))
           (modify-services %base-services
             (guix-service-type
              config => (guix-configuration
                         (inherit config)
                         (channels my-channels)
                         (guix (guix-for-channels my-channels)))))))

  (bootloader (bootloader-configuration
               (bootloader grub-bootloader)
               (targets (list "/dev/sda"))
               (keyboard-layout keyboard-layout)))
  (swap-devices (list (swap-space
                        (target (uuid
                                 "87ca086c-59c8-4cd5-8b69-355afbee886a")))))

  (file-systems (cons* (file-system
                         (mount-point "/")
                         (device (uuid
                                  "2d3eae58-a22e-4bfa-9929-0bcfc47c163a"
                                  'ext4))
                         (type "ext4")) %base-file-systems)))
--8<---------------cut here---------------end--------------->8---