[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: services: set-xorg-configuration: Use target-x86-64?.
From: |
guix-commits |
Subject: |
02/04: services: set-xorg-configuration: Use target-x86-64?. |
Date: |
Sat, 8 Jan 2022 19:04:31 -0500 (EST) |
marusich pushed a commit to branch master
in repository guix.
commit dc2b90109bbc86dc0124813007d4aa935371cc9c
Author: Chris Marusich <cmmarusich@gmail.com>
AuthorDate: Sat Jan 8 15:18:24 2022 -0800
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.
---
gnu/services/xorg.scm | 9 ++++-----
1 file 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