ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: set-xorg-configuration: Use target-x86-64?.

Browse source 
* gnu/services/xorg.scm (set-xorg-configuration)[login-manager-service-type]:
Use target-x86-64? from (guix utils) to decide if the system is an x86_64
system instead of comparing the strings ourselves.
This commit is contained in:
Chris Marusich 2022-01-08 15:18:24 -08:00
parent 6a2050b1e1
commit dc2b90109b
No known key found for this signature in database
GPG key ID: DD409A15D822469D
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/services/xorg.scm
View file

@ -59,6 +59,7 @@ (define-module (gnu services xorg)
#:use-module (guix derivations)
#:use-module (guix records)
#:use-module (guix deprecation)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (srfi srfi-26)
@ -1048,11 +1049,9 @@ (define gdm-service-type
(define* (set-xorg-configuration config
#:optional
(login-manager-service-type
(let ((system (or (%current-target-system)
(%current-system))))
(if (string-prefix? "x86_64" system)
gdm-service-type
sddm-service-type))))
(if (target-x86-64?)
gdm-service-type
sddm-service-type)))
"Tell the log-in manager (of type @var{login-manager-service-type}) to use
@var{config}, an <xorg-configuration> record."
(simple-service 'set-xorg-configuration