summary refs log tree commit diff
path: root/gnu/services
diff options
context:
space:
mode:
authorChris Marusich <cmmarusich@gmail.com>2022-01-08 15:18:24 -0800
committerChris Marusich <cmmarusich@gmail.com>2022-01-08 15:51:37 -0800
commitdc2b90109bbc86dc0124813007d4aa935371cc9c (patch)
tree533923686f5fe87a5ff59feaa32e00ab32989385 /gnu/services
parent6a2050b1e1c7f09ef9b6af43044b7c0e4786d39d (diff)
downloadguix-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/services')
-rw-r--r--gnu/services/xorg.scm9
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