From 171964da5bd3e85babad90ad81fb429944347dfd Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 24 Jul 2022 02:00:00 +0200
Subject: [PATCH] gnu: es: Use URL-FETCH/TARBOMB.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/shells.scm (es)[source]: Use URL-FETCH/TARBOMB to let us…
[arguments]: …delete the ad-hoc 're-enter-rootdir phase.
---
 gnu/packages/shells.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index 21035498a6..a8a42f0544 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -363,7 +363,7 @@ (define-public es
     (version "0.9.2")
     (source
      (origin
-       (method url-fetch)
+       (method url-fetch/tarbomb)
        (uri (string-append "https://github.com/wryun/es-shell/releases/"
                            "download/v" version "/es-" version ".tar.gz"))
        (sha256
@@ -371,13 +371,7 @@ (define-public es
        (file-name (string-append name "-" version ".tar.gz"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:test-target "test"
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 're-enter-rootdir
-           ;; The tarball has no folder.
-           (lambda _
-             (chdir ".."))))))
+     (list #:test-target "test"))
     (inputs
      (list readline))
     (native-inputs