bug#24390: VM with postgres service broken in master

[Jan Nieuwenhuizen <janneke@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1118 bytes --]

Hi!

Building a VM with postgres service like so (pg.scm attached)

    guix system vm pg.scm --expose=$HOME --share=$HOME/tmp=/exchange

on master @22 August

     e8bb433 gnu: Add kmscon.

results in run-vm.sh that boots fine doing

    /gnu/store/0d28hg2ms78wciiwlq1ic1sk1i98vdd8-run-vm.sh -enable-kvm -m 2G -net nic,model=virtio -redir tcp:2223::2222 -redir -redir tcp:5433::5432 &

Creating the same vm with today's master

    392a4e1 guix hash: Add --exclude-vcs option.

and running it

    /gnu/store/fikrcvp5bz1f8f152hgrn94lx677s95l-run-vm.sh -enable-kvm -m 2G -net nic,model=virtio -redir tcp:2223::2222 -redir tcp:5433::5432 &

breaks like so (copied manually from graphical qemu box)

    Adding user guixbuilder10...
    Adding user postgres...
    ERROR: In procedure system*:
    ERROR: Wrong type (expecting string): #t
    ...
    In ./gnu/build/activation.scm:
       ...
       152:20 (add-user "postgres" "postgres" #:uid #f #:comment "Po#" #)
    In unknown file:
          0 (system* "useradd" "-g" "postgres" "-c" "PostgresSQL" se#" #)

I'm not sure how to debug this further.

Greetings,
Jan


[-- Attachment #2: pg.scm --]
[-- Type: application/octet-stream, Size: 1202 bytes --]

(use-modules (gnu))

(use-service-modules
 base
 databases
 networking
 ssh)

(use-package-modules
 databases
 linux
 networking
 ssh)

(define %user (getenv "USER"))

(operating-system
  (host-name "postgres")
  (timezone "Europe/Amsterdam")
  (locale "en_US.UTF-8")

  (bootloader (grub-configuration
               (device "/dev/sda")))

  (file-systems
   (cons*
    (file-system (device "guix")
                 (title 'label)
                 (mount-point "/")
                 (type "ext4"))
    %base-file-systems))

  (groups (cons*
           (user-group (name %user))
           %base-groups))

  (users
   (cons* (user-account (name %user)
                        (group %user)
                        (password (crypt "" "xx"))
                        (uid 1000)
                        (supplementary-groups '("wheel"))
                        (home-directory (string-append "/home/" %user)))
          %base-user-accounts))

  (services (cons*
             (dhcp-client-service)
             (lsh-service #:port-number 2222
                          #:allow-empty-passwords? #t
                          #:root-login? #t)
             (postgresql-service)
             %base-services)))

[-- Attachment #3: Type: text/plain, Size: 154 bytes --]


-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl