01/02: gnu: cgit: Fix patch-absolute-file-names phase.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit 2b04ebaa7411404d9800ebcd3818dc7eb3bc7aba
Author: muradm <mail@muradm.net>
AuthorDate: Mon Jan 22 04:20:42 2024 +0300

    gnu: cgit: Fix patch-absolute-file-names phase.
    
    * gnu/packages/version-control.scm (cgit) [arguments]: Fix regexp in 
patch-absolute-file-names phase.
    
    Change-Id: I06c624ba23bfd0b8ca45045d1d2155c53258047e
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 gnu/packages/version-control.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index a7a701629f..8366335b08 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -1148,7 +1148,7 @@ collaboration using typical untrusted file hosts or 
services.")
                 (invoke "tar" "--strip-components=1" "-C" "git" "-xf"
                         (assoc-ref inputs "git-source"))))
             (add-after 'unpack 'patch-absolute-file-names
-              (lambda* (#:key inputs #:allow-other-keys)
+              (lambda* (#:key inputs outputs #:allow-other-keys)
                 (define (quoted-file-name input path)
                   (string-append "\"" input path "\""))
                 (substitute* "ui-snapshot.c"
@@ -1160,7 +1160,7 @@ collaboration using typical untrusted file hosts or 
services.")
                    (quoted-file-name (assoc-ref inputs "xz") "/bin/xz")))
 
                 (substitute* "filters/about-formatting.sh"
-                  (("$\\(dirname $0\\)") (string-append (assoc-ref outputs 
"out")
+                  (("\\$\\(dirname \\$0\\)") (string-append (assoc-ref outputs 
"out")
                                                         "/lib/cgit/filters"))
                   (("\\| tr") (string-append "| " (which "tr"))))