From 2b6a1829b97e84e64da71ccfdf11a4a8029869bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@member.fsf.org>
Date: Tue, 18 Jun 2024 12:13:33 +0800
Subject: [PATCH] gnu: ranger: Fix build.

* gnu/packages/disk.scm (ranger)[phases]: Put 'wrap-program' after 'install'.

Change-Id: I6a07b896995f40ff2169b1bc5aaf2251d353bdc7
---
 gnu/packages/disk.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index 7b78192fe9..7b58688948 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -963,7 +963,7 @@ Duperemove can also take input from the @command{fdupes} program.")
        #:test-target "test_pytest"
        #:phases
        (modify-phases %standard-phases
-         (add-after 'configure 'wrap-program
+         (add-after 'install 'wrap-program
            ;; Tell 'ranger' where 'w3mimgdisplay' is.
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out  (assoc-ref outputs "out"))