02/13: gnu: python-seaborn: Simplify 'start-xserver' phase.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 3125255cc5a51a0ac435408c73ed6253070ea215
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Jul 8 17:32:50 2021 +0200

    gnu: python-seaborn: Simplify 'start-xserver' phase.
    
    * gnu/packages/python-xyz.scm (python-seaborn)[arguments]: In
    'start-xserver' phase, assume "Xvfb" is in $PATH.
---
 gnu/packages/python-xyz.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index 193c86a..7a52285 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -8812,13 +8812,11 @@ SVG, EPS, PNG and terminal output.")
      `(#:phases
        (modify-phases %standard-phases
          (add-before 'check 'start-xserver
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let ((xorg-server (assoc-ref inputs "xorg-server")))
-               ;; There must be a running X server and make check doesn't
-               ;; start one.  Therefore we must do it.
-               (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
-               (setenv "DISPLAY" ":1")
-               #t)))
+           (lambda _
+             ;; There must be a running X server and make check doesn't
+             ;; start one.  Therefore we must do it.
+             (system "Xvfb :1 &")
+             (setenv "DISPLAY" ":1")))
          (replace 'check
            (lambda* (#:key tests? #:allow-other-keys)
              (when tests?