services: gdm: Properly handle empty extensions lists.
Fixes a bug whereby not extending GDM would lead us to do:
(first '())
in the 'compose' method.
Regression introduced in 305a732a0a
.
* gnu/services/xorg.scm (gdm-service-type)[compose]: Handle the case
where EXTENSIONS is empty.
[extend]: Handle the case where XORG-CONFIGURATION is #f.
This commit is contained in:
parent
37aaf9a8c7
commit
0cf981a606
|
@ -879,11 +879,16 @@ the GNOME desktop environment.")
|
|||
;; For convenience, this service can be extended with an
|
||||
;; <xorg-configuration> record. Take the first one that
|
||||
;; comes.
|
||||
(compose first)
|
||||
(compose (lambda (extensions)
|
||||
(match extensions
|
||||
(() #f)
|
||||
((config . _) config))))
|
||||
(extend (lambda (config xorg-configuration)
|
||||
(if xorg-configuration
|
||||
(gdm-configuration
|
||||
(inherit config)
|
||||
(xorg-configuration xorg-configuration))))
|
||||
(xorg-configuration xorg-configuration))
|
||||
config)))
|
||||
|
||||
(default-value (gdm-configuration))
|
||||
(description
|
||||
|
|
Loading…
Reference in New Issue