~ruther/guix-local

2b04ebaa7411404d9800ebcd3818dc7eb3bc7aba — muradm 2 years ago bafc6ef
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>
1 files changed, 2 insertions(+), 2 deletions(-)

M gnu/packages/version-control.scm
M gnu/packages/version-control.scm => gnu/packages/version-control.scm +2 -2
@@ 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"))))