01/01: gnu: wgetpaste: Remove dead paste site.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 234999497d1ab0ec0efa945e33378e3ca4ebf92e
Author: Efraim Flashner <address@hidden>
Date:   Thu May 23 20:58:47 2019 +0300

    gnu: wgetpaste: Remove dead paste site.
    
    * gnu/packages/wget.scm (wgetpaste)[arguments]: Add custom phase to
    remove newly defunct paste site.
---
 gnu/packages/wget.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/wget.scm b/gnu/packages/wget.scm
index 93a40c4..4940156 100644
--- a/gnu/packages/wget.scm
+++ b/gnu/packages/wget.scm
@@ -96,6 +96,14 @@ in downloaded documents to relative links.")
        (modify-phases %standard-phases
          (delete 'configure)
          (delete 'build)
+         (add-after 'unpack 'remove-dead-paste-site
+           ;; This phase is adaped from the following patch:
+           ;; 
https://gitweb.gentoo.org/repo/gentoo.git/tree/app-text/wgetpaste/files/wgetpaste-remove-dead.patch
+           (lambda _
+             (substitute* "wgetpaste"
+               ((" poundpython\"") "\"")
+               (("-poundpython") "-dpaste"))
+             #t))
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))