unofficial mirror of bug-guix@gnu.org 
 help / color / mirror / code / Atom feed
* bug#31885: Bug when running guix system reconfigure after recent guix pull
@ 2018-06-18 19:24 swedebugia
  2018-06-18 20:45 ` Clément Lassieur
  0 siblings, 1 reply; 3+ messages in thread
From: swedebugia @ 2018-06-18 19:24 UTC (permalink / raw)
  To: 31885

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

Ran guix pull twice on commit b4eae997fe5b928f179c34d281e9f2c3eccd3670
See config attached or here: https://paste.debian.net/1029776/

root@antelope ~# guix --version
guile: warning: failed to install locale
warning: failed to install locale: Invalid argument
guix (GNU Guix) b4eae997fe5b928f179c34d281e9f2c3eccd3670
Copyright (C) 2018 the Guix authors


root@antelope ~# .config/guix/current/bin/guix system reconfigure
/etc/config.scm --cores=1
guile: warning: failed to install locale
warning: failed to install locale: Invalid argument
Backtrace:
          12 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1557:12 11 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9 10 (catch _ _ #<procedure 7feafe98f980 at guix/ui.scm:593?> ?)
    829:9  9 (catch _ _ #<procedure 7feafe98f998 at guix/ui.scm:711?> ?)
In guix/scripts/system.scm:
   1224:8  8 (_)
   1094:6  7 (process-action _ _ _)
In guix/store.scm:
  1414:24  6 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
  1107:13  5 (_ _)
   805:18  4 (perform-action reconfigure #<<operating-system> kerne?> ?)
In gnu/system.scm:
   843:19  3 (operating-system-derivation _ #:container? _)
In gnu/services.scm:
   702:19  2 (instantiate-missing-services (#<<slim-configuration?> ?))
In srfi/srfi-1.scm:
   466:18  1 (fold #<procedure 7feaf2c96a50 at gnu/services.scm:702?> ?)
In gnu/services.scm:
   703:40  0 (_ _ _)

gnu/services.scm:703:40: In procedure service-kind: Wrong type argument:
#<<slim-configuration> slim: #<package slim@1.3.6
gnu/packages/display-managers.scm:312 2963cc0> allow-empty-passwords?:
#t auto-login?: #t default-user: "annika" theme: #<<file-append> base:
#<origin #<<git-reference> url:
"git://git.savannah.gnu.org/guix/guix-artwork.git" commit:
"6998d30425289b087c64f63e7415df2241e591db" recursive?: #f>
gjomvsacge5nz76kqiyzbpiin32l7nn672voskuo7ahz3za56jga () 193e840> suffix:
("/slim")> theme-name: "0.x" xauth: #<package xauth@1.0.10
gnu/packages/xorg.scm:1994 23ffa80> shepherd: #<package shepherd@0.4.0
gnu/packages/admin.scm:173 24ab180> auto-login-session: "xfdesktop"
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
mesa@17.3.8 gnu/packages/gl.scm:225 208d480>:out> "/lib/dri")) (setenv
"XKB_BINDIR" (string-append #<gexp-input #<package xkbcomp@1.4.1
gnu/packages/xorg.scm:3760 2415e40>:out> "/bin")) (let ((X
(string-append #<gexp-input #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00>:out> "/bin/X"))) (apply execl X X
"-xkbdir" (string-append #<gexp-input #<package xkeyboard-config@2.23.1
gnu/packages/xorg.scm:3836 2415c00>: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> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/75dpi")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/100dpi")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/misc")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix:
("/share/fonts/X11/cyrillic")> #<<file-append> base: #<package
font-misc-misc@1.1.2 gnu/packages/xorg.scm:714 23f1f00> suffix:
("/share/fonts/X11/misc")> #<<file-append> base: #<package
font-adobe75dpi@1.0.3 gnu/packages/xorg.scm:489 23e8600> suffix:
("/share/fonts/X11/75dpi")>):out>)) (for-each (lambda (module) (format
port "  ModulePath \"~a\"~%" module)) (append (expand (quote
#<gexp-input (#<package xf86-video-vesa@2.4.0 gnu/packages/xorg.scm:3417
240e780> #<package xf86-video-fbdev@0.5.0 gnu/packages/xorg.scm:2732
2407840> #<package xf86-video-ati@18.0.1 gnu/packages/xorg.scm:2675
24079c0> #<package xf86-video-cirrus@1.5.3 gnu/packages/xorg.scm:2703
2407900> #<package xf86-video-intel@2.99.917-10.d7dfab6
gnu/packages/xorg.scm:2914 2407480> #<package xf86-video-mach64@6.9.5
gnu/packages/xorg.scm:2961 24073c0> #<package xf86-video-nouveau@1.0.15
gnu/packages/xorg.scm:3097 24070c0> #<package xf86-video-nv@2.1.21
gnu/packages/xorg.scm:3070 2407180> #<package xf86-video-sis@0.10.9
gnu/packages/xorg.scm:3259 240ec00> #<package xf86-input-libinput@0.27.1
gnu/packages/xorg.scm:2447 2407f00> #<package xf86-input-evdev@2.10.6
gnu/packages/xorg.scm:2413 23ff000> #<package xf86-input-keyboard@1.9.0
gnu/packages/xorg.scm:2507 2407d80> #<package xf86-input-mouse@1.9.2
gnu/packages/xorg.scm:2531 2407cc0> #<package xf86-input-synaptics@1.9.1
gnu/packages/xorg.scm:2563 2407c00> #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00>):out>)) (list #<gexp-input
#<<file-append> base: #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00> suffix:
("/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 ():out>))))) 2e5e090> guile: #f options: (#:local-build?
#t)>:out> "-configdir" #<gexp-input #<<computed-file> name:
"xorg.conf.d" gexp: #<gexp  2e5e000> guile: #f options: (#:local-build?
#t)>:out> (cdr (command-line))))) 2e7ce70> guile: #f path:
("/gnu/store/smr91vhrzakk8mf6ylwmmddnr7wgl1fp-guix-b4eae997f-modules"
"/gnu/store/2rfa6337gb84bx4f2jzn5h9wfi3lhjik-guile-git-0.0-6.36f93c1/share/guile/site/2.2"
"/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2"
"/gnu/store/6jjn9fsma94qa6y86qwiyyqfsm2mjkxy-guile-json-1.0.1/share/guile/site/2.2"
"/gnu/store/5lmr2x0cl45x0f15hsbaw4y560gnwry3-guile-ssh-0.11.2/share/guile/site/2.2"
"/gnu/store/r21yw2lkm4fr1n7x1nxgpqrjw0xkln9r-guile-sqlite3-0.0-4.10c13a7/share/guile/site/2.2"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/run/current-system/profile/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile")>:out>
#<gexp-input #<<program-file> name: "X-wrapper" gexp: #<gexp (begin
(setenv "XORG_DRI_DRIVER_PATH" (string-append #<gexp-input #<package
mesa@17.3.8 gnu/packages/gl.scm:225 208d480>:out> "/lib/dri")) (setenv
"XKB_BINDIR" (string-append #<gexp-input #<package xkbcomp@1.4.1
gnu/packages/xorg.scm:3760 2415e40>:out> "/bin")) (let ((X
(string-append #<gexp-input #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00>:out> "/bin/X"))) (apply execl X X
"-xkbdir" (string-append #<gexp-input #<package xkeyboard-config@2.23.1
gnu/packages/xorg.scm:3836 2415c00>: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> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/75dpi")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/100dpi")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix: ("/share/fonts/X11/misc")>
#<<file-append> base: #<package font-alias@1.0.3
gnu/packages/xorg.scm:518 23e8540> suffix:
("/share/fonts/X11/cyrillic")> #<<file-append> base: #<package
font-misc-misc@1.1.2 gnu/packages/xorg.scm:714 23f1f00> suffix:
("/share/fonts/X11/misc")> #<<file-append> base: #<package
font-adobe75dpi@1.0.3 gnu/packages/xorg.scm:489 23e8600> suffix:
("/share/fonts/X11/75dpi")>):out>)) (for-each (lambda (module) (format
port "  ModulePath \"~a\"~%" module)) (append (expand (quote
#<gexp-input (#<package xf86-video-vesa@2.4.0 gnu/packages/xorg.scm:3417
240e780> #<package xf86-video-fbdev@0.5.0 gnu/packages/xorg.scm:2732
2407840> #<package xf86-video-ati@18.0.1 gnu/packages/xorg.scm:2675
24079c0> #<package xf86-video-cirrus@1.5.3 gnu/packages/xorg.scm:2703
2407900> #<package xf86-video-intel@2.99.917-10.d7dfab6
gnu/packages/xorg.scm:2914 2407480> #<package xf86-video-mach64@6.9.5
gnu/packages/xorg.scm:2961 24073c0> #<package xf86-video-nouveau@1.0.15
gnu/packages/xorg.scm:3097 24070c0> #<package xf86-video-nv@2.1.21
gnu/packages/xorg.scm:3070 2407180> #<package xf86-video-sis@0.10.9
gnu/packages/xorg.scm:3259 240ec00> #<package xf86-input-libinput@0.27.1
gnu/packages/xorg.scm:2447 2407f00> #<package xf86-input-evdev@2.10.6
gnu/packages/xorg.scm:2413 23ff000> #<package xf86-input-keyboard@1.9.0
gnu/packages/xorg.scm:2507 2407d80> #<package xf86-input-mouse@1.9.2
gnu/packages/xorg.scm:2531 2407cc0> #<package xf86-input-synaptics@1.9.1
gnu/packages/xorg.scm:2563 2407c00> #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00>):out>)) (list #<gexp-input
#<<file-append> base: #<package xorg-server@1.19.6
gnu/packages/xorg.scm:5072 2423c00> suffix:
("/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 ():out>))))) 2e5e090> guile: #f options: (#:local-build?
#t)>:out> "-configdir" #<gexp-input #<<computed-file> name:
"xorg.conf.d" gexp: #<gexp  2e5e000> guile: #f options: (#:local-build?
#t)>:out> (cdr (command-line))))) 2e7ce70> guile: #f path:
("/gnu/store/smr91vhrzakk8mf6ylwmmddnr7wgl1fp-guix-b4eae997f-modules"
"/gnu/store/2rfa6337gb84bx4f2jzn5h9wfi3lhjik-guile-git-0.0-6.36f93c1/share/guile/site/2.2"
"/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2"
"/gnu/store/6jjn9fsma94qa6y86qwiyyqfsm2mjkxy-guile-json-1.0.1/share/guile/site/2.2"
"/gnu/store/5lmr2x0cl45x0f15hsbaw4y560gnwry3-guile-ssh-0.11.2/share/guile/site/2.2"
"/gnu/store/r21yw2lkm4fr1n7x1nxgpqrjw0xkln9r-guile-sqlite3-0.0-4.10c13a7/share/guile/site/2.2"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/run/current-system/profile/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile")>:out>
"-logverbose" "-verbose" "-nolisten" "tcp" "-terminate" (cdr
(command-line))) 2e7cde0> guile: #f path:
("/gnu/store/smr91vhrzakk8mf6ylwmmddnr7wgl1fp-guix-b4eae997f-modules"
"/gnu/store/2rfa6337gb84bx4f2jzn5h9wfi3lhjik-guile-git-0.0-6.36f93c1/share/guile/site/2.2"
"/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2"
"/gnu/store/6jjn9fsma94qa6y86qwiyyqfsm2mjkxy-guile-json-1.0.1/share/guile/site/2.2"
"/gnu/store/5lmr2x0cl45x0f15hsbaw4y560gnwry3-guile-ssh-0.11.2/share/guile/site/2.2"
"/gnu/store/r21yw2lkm4fr1n7x1nxgpqrjw0xkln9r-guile-sqlite3-0.0-4.10c13a7/share/guile/site/2.2"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/gnu/store/iv3yg0g269hnxc1aqk9r55aq3h72c6m1-module-import"
"/run/current-system/profile/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site/2.2"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site"
"/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile")>
sessreg: #<package sessreg@1.1.1 gnu/packages/xorg.scm:1782 23f7000>>

[-- Attachment #2: config.scm --]
[-- Type: text/plain, Size: 2534 bytes --]

;; 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) 
	(guix store))
(use-service-modules desktop pm xorg)
(use-package-modules certs mate gnome)

(operating-system
  (host-name "antelope")
  (timezone "Europe/Paris")
  (locale "sv_SE.utf8")

  ;; Assuming /dev/sda is the target hard disk, and "my-root"
  ;; is the label of the target root file system.
  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")
		(menu-entries
			(menu-entry
				(label "Ubuntu 16.04")
				(linux "/boot/vmlinuz-4.4.0-128-generic")
				(linux-arguments '("root=/dev/sda5"))
				(initrd "/boot/initrd.img-4.4.0-128-generic")))))

  (file-systems (cons (file-system
                        (device (file-system-label "my-root"))
                        (mount-point "/")
                        (type "ext4"))
                      %base-file-systems))

  (users (cons (user-account
                (name "swedebugia")
                (comment "Alice's brother")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/swedebugia"))
               %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs mate mate-applets         ;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 Wicd,
  ;; and more.
  (services (cons* 
		(slim-configuration
			(auto-login? #t)
			(default-user "swedebugia")
			(auto-login-session "xfdesktop"))
		(guix-configuration
;			#:authorize-keys (cons "/home/swedebugia/berlin.guixsd.org.pub"
;						%default-authorized-guix-keys)
			(substitute-urls (cons	"https://berlin.guixsd.org"
						%default-substitute-urls)))
		;; Is this correct?
;		(tlp-servicy-type
;			(tlp-configuration
;				;; Should I use parenteses instead of "#:"?
;				(cpu-scaling-govenor-on-ac (list "conservative"))
;				(cpu-scaling-govenor-on-bat (list "conservative"))))
		(xfce-desktop-service)
                   %desktop-services))

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

^ permalink raw reply	[flat|nested] 3+ messages in thread

* bug#31885: Bug when running guix system reconfigure after recent guix pull
  2018-06-18 19:24 bug#31885: Bug when running guix system reconfigure after recent guix pull swedebugia
@ 2018-06-18 20:45 ` Clément Lassieur
  2018-06-18 22:51   ` swedebugia
  0 siblings, 1 reply; 3+ messages in thread
From: Clément Lassieur @ 2018-06-18 20:45 UTC (permalink / raw)
  To: swedebugia; +Cc: 31885-done

Hello!

swedebugia@riseup.net writes:

> gnu/services.scm:703:40: In procedure service-kind: Wrong type argument:
> #<<slim-configuration> slim: #<package slim@1.3.6
> gnu/packages/display-managers.scm:312 2963cc0> allow-empty-passwords?:
> #t auto-login?: #t default-user: "annika" theme: #<<file-append> base:
> #<origin #<<git-reference> url:
> "git://git.savannah.gnu.org/guix/guix-artwork.git" commit:
> "6998d30425289b087c64f63e7415df2241e591db" recursive?: #f>

[...]

>   (services (cons* 
> 		(slim-configuration
> 			(auto-login? #t)
> 			(default-user "swedebugia")
> 			(auto-login-session "xfdesktop"))
> 		(guix-configuration
> ;			#:authorize-keys (cons "/home/swedebugia/berlin.guixsd.org.pub"
> ;						%default-authorized-guix-keys)
> 			(substitute-urls (cons	"https://berlin.guixsd.org"
> 						%default-substitute-urls)))
> 		;; Is this correct?
> ;		(tlp-servicy-type
> ;			(tlp-configuration
> ;				;; Should I use parenteses instead of "#:"?
> ;				(cpu-scaling-govenor-on-ac (list "conservative"))
> ;				(cpu-scaling-govenor-on-bat (list "conservative"))))
> 		(xfce-desktop-service)
>                    %desktop-services))

This is because this 'services' field is expecting 'services' and gets
other things like 'configuration records' instead.

You might want something like this (not tested):

--8<---------------cut here---------------start------------->8---
(services (cons*
           (service slim-service-type
                    (slim-configuration
                     (auto-login? #t)
                     (default-user "swedebugia")
                     (auto-login-session "xfdesktop")))

           (service tlp-servicy-type
                    (tlp-configuration
                     (cpu-scaling-governor-on-ac (list "conservative"))
                     (cpu-scaling-governor-on-bat (list "conservative"))))

           (xfce-desktop-service)

           (modify-services %desktop-services
             (guix-service-type
              config =>
              (guix-configuration
               (inherit config)
               (substitute-urls (cons "https://berlin.guixsd.org"
                                      %default-substitute-urls))
               (authorized-keys (cons "/home/swedebugia/berlin.guixsd.org.pub"
                                      %default-authorized-guix-keys)))))))
--8<---------------cut here---------------end--------------->8---

The guix-service-type service needs to be modified because it is already
in %desktop-services, and you can't have it twice.

> ;				;; Should I use parenteses instead of "#:"?

Things ending with '-configuration' are usually macros that can be used
to instantiate the corresponding records.  They take arguments like
'(field value)'.  '#:' is used when passing arguments to normal
functions.

This is complex, but you can usually know what things expect by looking
at the examples in the documentation.

If you have similar issues, please email help-guix@gnu.org instead.

Good luck, and don't hesitate to ask! :-)
Clément

^ permalink raw reply	[flat|nested] 3+ messages in thread

* bug#31885: Bug when running guix system reconfigure after recent guix pull
  2018-06-18 20:45 ` Clément Lassieur
@ 2018-06-18 22:51   ` swedebugia
  0 siblings, 0 replies; 3+ messages in thread
From: swedebugia @ 2018-06-18 22:51 UTC (permalink / raw)
  To: Clément Lassieur; +Cc: 31885-done

Hi

On June 18, 2018 10:45:42 PM GMT+02:00, "Clément Lassieur" <clement@lassieur.org> wrote:
>
>The guix-service-type service needs to be modified because it is
>already
>in %desktop-services, and you can't have it twice.

Got it! Now I understand the problem. 

>> ;				;; Should I use parenteses instead of "#:"?
>
>Things ending with '-configuration' are usually macros that can be used
>to instantiate the corresponding records.  They take arguments like
>'(field value)'.  '#:' is used when passing arguments to normal
>functions.

This I did not fully understand, will read up on macros in the guile manual and ask on help-guix or IRC if needed. 

>This is complex, but you can usually know what things expect by looking
>at the examples in the documentation.

I tried. Will try harder and propose changes with more examples and clarifications.  

>
>If you have similar issues, please email help-guix@gnu.org instead.

Understood. 

>Good luck, and don't hesitate to ask! :-)

Big thanks for taking the time to investigate this. 😀

-- 
Cheers Swedebugia

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2018-06-18 22:53 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2018-06-18 19:24 bug#31885: Bug when running guix system reconfigure after recent guix pull swedebugia
2018-06-18 20:45 ` Clément Lassieur
2018-06-18 22:51   ` swedebugia

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).