services: xorg: Assume STARTX is a regular value.

* gnu/services/xorg.scm (slim-service): Expect STARTX to be a regular value, not a monadic value.
2015-05-21 22:22:12 +02:00 · 2015-05-21 22:22:12 +02:00 · 1eca6c36ad
parent 12422c9d38
commit 1eca6c36ad
1 changed files with 3 additions and 1 deletions
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@ -246,7 +246,9 @@ theme to use.  In that case, @var{theme-name} specifies the name of the
 theme."

  (define (slim.cfg)
-    (mlet %store-monad ((startx  (or startx (xorg-start-command)))
+    (mlet %store-monad ((startx  (if startx
+                                     (return startx)
+                                     (xorg-start-command)))
                        (xinitrc (xinitrc #:fallback-session
                                          auto-login-session)))
      (text-file* "slim.cfg"  "