From 234999497d1ab0ec0efa945e33378e3ca4ebf92e Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Thu, 23 May 2019 20:58:47 +0300
Subject: [PATCH] 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 93a40c487a..4940156db5 100644
--- a/gnu/packages/wget.scm
+++ b/gnu/packages/wget.scm
@@ -96,6 +96,14 @@ (define-public wgetpaste
        (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"))