diff options
| author | Chris Marusich <cmmarusich@gmail.com> | 2022-01-08 15:18:24 -0800 |
|---|---|---|
| committer | Chris Marusich <cmmarusich@gmail.com> | 2022-01-08 15:51:37 -0800 |
| commit | dc2b90109bbc86dc0124813007d4aa935371cc9c (patch) | |
| tree | 533923686f5fe87a5ff59feaa32e00ab32989385 /gnu | |
| parent | 6a2050b1e1c7f09ef9b6af43044b7c0e4786d39d (diff) | |
| download | guix-dc2b90109bbc86dc0124813007d4aa935371cc9c.tar guix-dc2b90109bbc86dc0124813007d4aa935371cc9c.tar.gz | |
services: set-xorg-configuration: Use target-x86-64?.
* 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.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/xorg.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 35f8dbc5f8..a5e1a1471d 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -59,6 +59,7 @@ #: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 @@ you to log in in a graphical session, whether or not you use GNOME.")))) (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 |