gnu: wgetpaste: Fix historical confusion.
* gnu/packages/wget.scm (wgetpaste)[arguments]: Fix the reversed substitution and clarify its purpose.
This commit is contained in:
		
							parent
							
								
									e071b0c940
								
							
						
					
					
						commit
						57ea4dfca1
					
				
					 1 changed files with 5 additions and 5 deletions
				
			
		| 
						 | 
					@ -3,7 +3,7 @@
 | 
				
			||||||
;;; Copyright © 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
 | 
					;;; Copyright © 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
 | 
				
			||||||
;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
 | 
					;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
 | 
				
			||||||
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
 | 
					;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
 | 
				
			||||||
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
					;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
				
			||||||
;;;
 | 
					;;;
 | 
				
			||||||
;;; This file is part of GNU Guix.
 | 
					;;; This file is part of GNU Guix.
 | 
				
			||||||
;;;
 | 
					;;;
 | 
				
			||||||
| 
						 | 
					@ -94,12 +94,12 @@ in downloaded documents to relative links.")
 | 
				
			||||||
       (modify-phases %standard-phases
 | 
					       (modify-phases %standard-phases
 | 
				
			||||||
         (delete 'configure)
 | 
					         (delete 'configure)
 | 
				
			||||||
         (delete 'build)
 | 
					         (delete 'build)
 | 
				
			||||||
         (add-after 'unpack 'remove-dead-paste-site
 | 
					         (add-after 'unpack 'change-unfriendly-default
 | 
				
			||||||
           ;; 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 _
 | 
					           (lambda _
 | 
				
			||||||
             (substitute* "wgetpaste"
 | 
					             (substitute* "wgetpaste"
 | 
				
			||||||
               (("-bpaste") "-dpaste")) ; dpaste blocks tor users
 | 
					               ;; dpaste blocks Tor users.  Use a better default.
 | 
				
			||||||
 | 
					               (("DEFAULT_SERVICE:-dpaste")
 | 
				
			||||||
 | 
					                "DEFAULT_SERVICE-bpaste"))
 | 
				
			||||||
             #t))
 | 
					             #t))
 | 
				
			||||||
         (replace 'install
 | 
					         (replace 'install
 | 
				
			||||||
           (lambda* (#:key outputs #:allow-other-keys)
 | 
					           (lambda* (#:key outputs #:allow-other-keys)
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Reference in a new issue