Re: hydra.gnu.org off-line for maintenance

[znavko]

Sorry, substitution like this gives the next errors:


;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.


(use-modules (gnu) (gnu system nss)
             (gnu services desktop)
             
          ;;(gnu services networking) ;;for tor
             (gnu services xorg)
          ;;   (gnu packages libusb)
          ;;   (gnu services networking)
          ;;   (gnu services audio)
            ;; (gnu packages linux)
          ;;   (gnu services dbus)
)
(use-service-modules desktop)
(use-package-modules certs gnome)

(define %my-services
  (modify-services %base-services
    (guix-service-type config =>
                       (guix-configuration
                        (inherit config)
                        (substitute-urls (list "https://mirror.hydra.gnu.org";
                                               "https://hydra.gnu.org";
                                               "https://berlin.guixsd.org";
                                               ))))))

(operating-system
  (host-name "antelope")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

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

  (file-systems (cons (file-system
                        (device "/dev/sda1")
                        (mount-point "/")
                        (type "ext4")
                        )
                      %base-file-systems))

  (swap-devices '("/dev/sda2"))

  (users (cons* (user-account
                (name "bob")
                (comment "bob is good too")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/bob"))
           
      (user-account
                (name "alice")
                (comment "bobs sister")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/alice"))
                
      (user-account
                (name "mom")
                (comment "mom")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/mom"))

               %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   %base-packages))

  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with
  ;; NetworkManager, and more.
  (services (cons*  ;;(tor-service)
                    (xfce-desktop-service)
                    (bluetooth-service)
                    (modify-services %desktop-services
                        (elogind-service-type
                            c => (elogind-configuration
                                (handle-lid-switch 'ignore)))

                        (slim-service-type config =>
                            (slim-configuration
                                (inherit config)
                                (startx
                                    (xorg-start-command
                                        #:configuration-file
                                        (xorg-configuration-file
                                            #:extra-config
                                            '(
"Section \"InputClass\"
        Identifier \"keyboard-all\"
        Option \"XkbLayout\" \"dvorak\"
        MatchIsKeyboard \"on\"
EndSection
Section \"InputClass\"
        Identifier \"touchpad-all\"
        MatchIsTouchpad \"on\"
        Option \"DisableWhileTyping\" \"on\"
        Option \"Tapping\" \"on\"
EndSection"
                                            )
                                        )
                                    )
                                )
                            )
                        )

                    );;end of moify desktop-srvices

                    %my-services
  ));;end of services

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))

  



# guix system reconfigure /etc/config.scm
Backtrace:
          13 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1583:12 12 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9 11 (catch _ _ #<procedure 7fdf17689458 at guix/ui.scm:615…> …)
    829:9 10 (catch _ _ #<procedure 7fdf17689470 at guix/ui.scm:733…> …)
In guix/scripts/system.scm:
   1262:8  9 (_)
In guix/status.scm:
    600:4  8 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1132:6  7 (process-action _ _ _)
In guix/store.scm:
  1605:24  6 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
  1145:13  5 (_ _)
   840:18  4 (perform-action reconfigure #<<operating-system> kerne…> …)
In gnu/system.scm:
   846:19  3 (operating-system-derivation _ #:container? _)
In gnu/services.scm:
    737:6  2 (instantiate-missing-services _)
In srfi/srfi-1.scm:
   466:18  1 (fold #<procedure 7fdf0a88dcc8 at gnu/services.scm:737…> …)
In gnu/services.scm:
   738:27  0 (_ (#<<service> type: #<service-type slim 159e7d0> …> …) …)

gnu/services.scm:738:27: In procedure struct_vtable: Wrong type argument in position 1 (expecting struct): (#<<service> type: #<service-type slim 159e7d0> value: #<<slim-configuration> slim: #<package address@hidden gnu/packages/display-managers.scm:310 31a9600> allow-empty-passwords?: #t auto-login?: #f default-user: "" theme: #<file-append #<origin #<<git-reference> url: "git://git.savannah.gnu.org/guix/guix-artwork.git" commit: "6998d30425289b087c64f63e7415df2241e591db" recursive?: #f> gjomvsacge5nz76kqiyzbpiin32l7nn672voskuo7ahz3za56jga () 300ec00> "/slim"> theme-name: "0.x" xauth: #<package address@hidden gnu/packages/xorg.scm:1996 2d76600> shepherd: #<package address@hidden gnu/packages/admin.scm:174 2ccbcc0> auto-login-session: #f startx: #<<program-file> name: "startx" gexp: #<gexp (apply execl #<gexp-input #<<program-file> name: "X-wrapper" gexp: #<gexp (begin (setenv "XORG_DRI_DRIVER_PATH" (string-append #<gexp-input #<package address@hidden gnu/packages/gl.scm:225 29eaf00>:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:3754 2ae2780>:out> "/bin")) (let ((X (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:5066 1dce900>:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:3830 2ae2540>:out> "/share/X11/xkb") "-config" #<gexp-input #<<computed-file> name: "xserver.conf" gexp: #<gexp (begin (use-modules (ice-9 match) (srfi srfi-1) (srfi srfi-26)) (call-with-output-file #<gexp-output out> (lambda (port) (define drivers (quote #<gexp-input ():out>)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote #<gexp-input (#<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/75dpi"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/100dpi"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/misc"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/cyrillic"> #<file-append #<package address@hidden gnu/packages/xorg.scm:716 2d69a80> "/share/fonts/X11/misc"> #<file-append #<package address@hidden gnu/packages/xorg.scm:491 2d5f180> "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote #<gexp-input (#<package address@hidden gnu/packages/xorg.scm:3411 2d83240> #<package address@hidden gnu/packages/xorg.scm:2728 2d7d300> #<package address@hidden gnu/packages/xorg.scm:2671 2d7d480> #<package address@hidden gnu/packages/xorg.scm:2699 2d7d3c0> #<package address@hidden gnu/packages/xorg.scm:2910 2d83f00> #<package address@hidden gnu/packages/xorg.scm:2957 2d83e40> #<package address@hidden gnu/packages/xorg.scm:3093 2d83b40> #<package address@hidden gnu/packages/xorg.scm:3066 2d83c00> #<package address@hidden gnu/packages/xorg.scm:3252 2d836c0> #<package address@hidden gnu/packages/xorg.scm:2449 2d7da80> #<package address@hidden gnu/packages/xorg.scm:2415 2d7db40> #<package address@hidden gnu/packages/xorg.scm:2509 2d7d900> #<package address@hidden gnu/packages/xorg.scm:2533 2d7d840> #<package address@hidden gnu/packages/xorg.scm:2565 2d7d780> #<package address@hidden gnu/packages/xorg.scm:5066 1dce900>):out>)) (list #<gexp-input #<file-append #<package address@hidden gnu/packages/xorg.scm:5066 1dce900> "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #<gexp-input ():out>)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #<gexp-input ("Section \"InputClass\"\n        Identifier \"keyboard-all\"\n        Option \"XkbLayout\" \"dvorak\"\n        MatchIsKeyboard \"on\"\nEndSection\nSection \"InputClass\"\n        Identifier \"touchpad-all\"\n        MatchIsTouchpad \"on\"\n        Option \"DisableWhileTyping\" \"on\"\n        Option \"Tapping\" \"on\"\nEndSection"):out>))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" #<gexp-input #<<computed-file> name: "xorg.conf.d" gexp: #<gexp  17bf360> guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> #<gexp-input #<<program-file> name: "X-wrapper" gexp: #<gexp (begin (setenv "XORG_DRI_DRIVER_PATH" (string-append #<gexp-input #<package address@hidden gnu/packages/gl.scm:225 29eaf00>:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:3754 2ae2780>:out> "/bin")) (let ((X (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:5066 1dce900>:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #<gexp-input #<package address@hidden gnu/packages/xorg.scm:3830 2ae2540>:out> "/share/X11/xkb") "-config" #<gexp-input #<<computed-file> name: "xserver.conf" gexp: #<gexp (begin (use-modules (ice-9 match) (srfi srfi-1) (srfi srfi-26)) (call-with-output-file #<gexp-output out> (lambda (port) (define drivers (quote #<gexp-input ():out>)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote #<gexp-input (#<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/75dpi"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/100dpi"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/misc"> #<file-append #<package address@hidden gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/cyrillic"> #<file-append #<package address@hidden gnu/packages/xorg.scm:716 2d69a80> "/share/fonts/X11/misc"> #<file-append #<package address@hidden gnu/packages/xorg.scm:491 2d5f180> "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote #<gexp-input (#<package address@hidden gnu/packages/xorg.scm:3411 2d83240> #<package address@hidden gnu/packages/xorg.scm:2728 2d7d300> #<package address@hidden gnu/packages/xorg.scm:2671 2d7d480> #<package address@hidden gnu/packages/xorg.scm:2699 2d7d3c0> #<package address@hidden gnu/packages/xorg.scm:2910 2d83f00> #<package address@hidden gnu/packages/xorg.scm:2957 2d83e40> #<package address@hidden gnu/packages/xorg.scm:3093 2d83b40> #<package address@hidden gnu/packages/xorg.scm:3066 2d83c00> #<package address@hidden gnu/packages/xorg.scm:3252 2d836c0> #<package address@hidden gnu/packages/xorg.scm:2449 2d7da80> #<package address@hidden gnu/packages/xorg.scm:2415 2d7db40> #<package address@hidden gnu/packages/xorg.scm:2509 2d7d900> #<package address@hidden gnu/packages/xorg.scm:2533 2d7d840> #<package address@hidden gnu/packages/xorg.scm:2565 2d7d780> #<package address@hidden gnu/packages/xorg.scm:5066 1dce900>):out>)) (list #<gexp-input #<file-append #<package address@hidden gnu/packages/xorg.scm:5066 1dce900> "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #<gexp-input ():out>)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #<gexp-input ("Section \"InputClass\"\n        Identifier \"keyboard-all\"\n        Option \"XkbLayout\" \"dvorak\"\n        MatchIsKeyboard \"on\"\nEndSection\nSection \"InputClass\"\n        Identifier \"touchpad-all\"\n        MatchIsTouchpad \"on\"\n        Option \"DisableWhileTyping\" \"on\"\n        Option \"Tapping\" \"on\"\nEndSection"):out>))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" #<gexp-input #<<computed-file> name: "xorg.conf.d" gexp: #<gexp  17bf360> guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> "-logverbose" "-verbose" "-nolisten" "tcp" "-terminate" (cdr (command-line))) 17bf150> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")> sessreg: #<package address@hidden gnu/packages/xorg.scm:1784 2d76b40>>> #<<service> type: #<service-type screen-locker 159e780> value: #<<screen-locker> name: "slock" program: #<file-append #<package address@hidden gnu/packages/suckless.scm:199 254aa80> "/bin/ slock"> empty?: #f>> #<<service> type: #<service-type screen-locker 159e780> value: #<<screen-locker> name: "xlock" program: #<file-append #<package address@hidden gnu/packages/xdisorg.scm:639 25b5a80> "/bin/ xlock"> empty?: #f>> #<<service> type: #<service-type mtp 1af96e0> value: (#<package address@hidden gnu/packages/libusb.scm:304 2a34180>)> #<<service> type: #<service-type network-manager 159e460> value: #<<network-manager-configuration> network-manager: #<package address@hidden gnu/packages/gnome.scm:5046 29a0480> dns: "default" vpn-plugins: ()>> #<<service> type: #<service-type wpa-supplicant 159e370> value: #<<wpa-supplicant-configuration> wpa-supplicant: #<package address@hidden gnu/packages/admin.scm:1143 2ce1cc0> pid-file: "/var/run/wpa_supplicant.pid" dbus?: #t interface: #f config-file: #f extra-options: ()>> #<<service> type: #<service-type avahi 159e820> value: #<<avahi-configuration> avahi: #<package address@hidden gnu/packages/avahi.scm:35 2c91540> debug?: #f host-name: #f publish?: #t publish-workstation?: #t ipv4?: #t ipv6?: #t wide-area?: #f domains-to-browse: ()>> #<<service> type: #<service-type udisks 159e0f0> value: #<<udisks-configuration> udisks: #<package address@hidden gnu/packages/freedesktop.scm:623 29d6f00>>> #<<service> type: #<service-type upower 159e230> value: #<<upower-configuration> upower: #<package address@hidden gnu/packages/gnome.scm:2934 298f480> watts-up-pro?: #f poll-batteries?: #t ignore-lid?: #f use-percentage-for-policy?: #f percentage-low: 10 percentage-critical: 3 percentage-action: 2 time-low: 1200 time-critical: 300 time-action: 120 critical-power-action: hybrid-sleep>> #<<service> type: #<service-type accountsservice 159e050> value: #<package address@hidden gnu/packages/freedesktop.scm:723 29d6e40>> #<<service> type: #<service-type colord 159e140> value: #<package address@hidden gnu/packages/gnome.scm:2786 298f6c0>> #<<service> type: #<service-type geoclue 159e1e0> value: #<<geoclue-configuration> geoclue: #<package address@hidden gnu/packages/gnome.scm:2850 298f600> whitelist: () wifi-geolocation-url: "https://location.services.mozilla.com/v1/geolocate?key=geoclue" submit-data?: #f wifi-submission-url: "https://location.services.mozilla.com/v1/submit?key=geoclue" submission-nick: "geoclue" applications: ("[gnome-datetime-panel]\nallowed=true\nsystem=true\nusers=\n" "[epiphany]\nallowed=true\nsystem=false\nusers=\n" "[firefox]\nallowed=true\nsystem=false\nusers=\n")>> #<<service> type: #<service-type polkit 159e870> value: #<<polkit-configuration> polkit: #<package address@hidden gnu/packages/polkit.scm:44 26e10c0> actions: ()>> #<<service> type: #<service-type elogind 159e0a0> value: #<<elogind-configuration> elogind: #<package address@hidden gnu/packages/freedesktop.scm:230 29cb6c0> kill-user-processes?: #f kill-only-users: () kill-exclude-users: ("root") inhibit-delay-max-seconds: 5 handle-power-key: poweroff handle-suspend-key: suspend handle-hibernate-key: ignore handle-lid-switch: ignore handle-lid-switch-docked: ignore power-key-ignore-inhibited?: #f suspend-key-ignore-inhibited?: #f hibernate-key-ignore-inhibited?: #f lid-switch-ignore-inhibited?: #t holdoff-timeout-seconds: 30 idle-action: ignore idle-action-seconds: 1800 runtime-directory-size-percent: 10 runtime-directory-size: #f remove-ipc?: #t suspend-state: ("mem" "standby" "freeze") suspend-mode: () hibernate-state: ("disk") hibernate-mode: ("platform" "shutdown") hybrid-sleep-state: ("disk") hybrid-sleep-mode: ("suspend" "platform" "shutdown")>> #<<service> type: #<service-type dbus 159e8c0> value: #<<dbus-configuration> dbus: #<package address@hidden gnu/packages/glib.scm:81 2acf540> services: ()>> #<<service> type: #<service-type ntp 159e640> value: #<<ntp-configuration> ntp: #<package address@hidden gnu/packages/ntp.scm:41 31fa240> servers: ("0.guix.pool.ntp.org" "1.guix.pool.ntp.org" "2.guix.pool.ntp.org" "3.guix.pool.ntp.org") allow-large-adjustment?: #f>> #<<service> type: #<service-type x11-socket-directory 1af9780> value: #<gexp (begin (use-modules (guix build utils)) (let ((directory "/tmp/.X11-unix")) (mkdir-p directory) (chmod directory 511))) 3253f90>> #<<service> type: #<service-type alsa 159e280> value: #<<alsa-configuration> alsa-plugins: #<package address@hidden gnu/packages/linux.scm:1060 2c73f00> pulseaudio?: #t extra-options: "">> #<<service> type: #<service-type login 159edc0> value: #<<login-configuration> motd: #<<plain-file> name: "motd" content: "This is the GNU operating system, welcome!\n\n" references: ()> allow-empty-passwords?: #t>> #<<service> type: #<service-type virtual-terminal 159eeb0> value: #t> #<<service> type: #<service-type console-fonts 159ee10> value: (("tty1" . "LatGrkCyr-8x16") ("tty2" . "LatGrkCyr-8x16") ("tty3" . "LatGrkCyr-8x16") ("tty4" . "LatGrkCyr-8x16") ("tty5" . "LatGrkCyr-8x16") ("tty6" . "LatGrkCyr-8x16"))> #<<service> type: #<service-type agetty 159ed70> value: #<<agetty-configuration> agetty: #<package address@hidden gnu/packages/linux.scm:581 2c6c9c0> tty: #f term: "vt100" baud-rate: #f auto-login: #f login-program: #<file-append #<package address@hidden gnu/packages/admin.scm:366 2ccb840> "/bin/login"> login-pause?: #f eight-bits?: #f no-reset?: #f remote?: #f flow-control?: #f host: #f no-issue?: #f init-string: #f no-clear?: #f local-line: #f extract-baud?: #f skip-login?: #f no-newline?: #f login-options: #f chroot: #f hangup?: #f keep-baud?: #f timeout: #f detect-case?: #f wait-cr?: #f no-hints?: #f no-hostname?: #f long-hostname?: #f erase-characters: #f kill-characters: #f chdir: #f delay: #f nice: #f extra-options: ("-L")>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty1" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty2" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty3" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty4" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty5" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package address@hidden gnu/packages/admin.scm:423 2ccb780> tty: "tty6" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type static-networking 159e960> value: (#<<static-networking> interface: "lo" ip: "127.0.0.1" netmask: #f gateway: #f provision: (loopback) requirement: () name-servers: ()>)> #<<service> type: #<service-type syslog 159ec80> value: #<<syslog-configuration> syslogd: #<file-append #<package address@hidden gnu/packages/admin.scm:332 2ccb900> "/libexec/syslogd"> config-file: #<<plain-file> name: "syslog.conf" content: "\n     # Log all error messages, authentication messages of\n     # level notice or higher and anything of level err or\n     # higher to the console.\n     # Don't log private authentication messages!\n     *.alert;auth.notice;authpriv.none       /dev/console\n\n     # Log anything (except mail) of level info or higher.\n     # Don't log private authentication messages!\n     *.info;mail.none;authpriv.none          /var/log/messages\n\n     # Like /var/log/messages, but also including \"debug\"-level logs.\n     *.debug;mail.none;authpriv.none         /var/log/debug\n\n     # Same, in a different place.\n     *.info;mail.none;authpriv.none          /dev/tty12\n\n     # The authpriv file has restricted access.\n     authpriv.*                              /var/log/secure\n\n     # Log all the mail messages in one place.\n     mail.*                                  /var/log/maillog\n" references: ()>>> #<<service> type: #<service-type urandom-seed 1af98c0> value: #f> #<<service> type: #<service-type guix 159ebe0> value: #<<guix-configuration> guix: #<package address@hidden gnu/packages/package-management.scm:107 201e900> build-group: "guixbuild" build-accounts: 10 authorize-key?: #t authorized-keys: (#<file-append #<package address@hidden gnu/packages/package-management.scm:107 201e900> "/share/guix/hydra.gnu.org.pub"> #<file-append #<package address@hidden gnu/packages/package-management.scm:107 201e900> "/share/guix/berlin.guixsd.org.pub">) use-substitutes?: #t substitute-urls: ("https://mirror.hydra.gnu.org") chroot-directories: () max-silent-time: 0 timeout: 0 log-compression: bzip2 extra-options: () log-file: "/var/log/guix-daemon.log" http-proxy: #f tmpdir: #f>> #<<service> type: #<service-type nscd 159ecd0> value: #<<nscd-configuration> log-file: "/var/log/nscd.log" debug-level: 0 caches: (#<<nscd-cache> database: hosts positive-time-to-live: 43200 negative-time-to-live: 20 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t> #<<nscd-cache> database: services positive-time-to-live: 86400 negative-time-to-live: 3600 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t>) name-services: () glibc: #<package address@hidden gnu/packages/commencement.scm:668 2eadb40>>> #<<service> type: #<service-type udev 159eaf0> value: #<<udev-configuration> udev: #<package address@hidden gnu/packages/linux.scm:2042 2c7bd80> rules: (#<package address@hidden gnu/packages/linux.scm:2104 2c7bc00> #<package address@hidden gnu/packages/linux.scm:1635 2c73600> #<package address@hidden gnu/packages/linux.scm:1013 2c6c000> #<package address@hidden gnu/packages/linux.scm:2240 2c7b9c0>)>> #<<service> type: #<service-type special-files 1af9dc0> value: (("/bin/sh" #<file-append #<package address@hidden gnu/packages/bash.scm:119 294a6c0> "/bin/sh">))>)