me
/
guix
Archived
1
0
Fork 0
Code

gnu: wgetpaste: Remove trailing #t from phases. 

* gnu/packages/wget.scm (wgetpaste)[arguments]: Remove trailing #t from
phases.
master
Efraim Flashner 2022-05-29 16:25:35 +03:00
parent c62be7d530
commit 50970a28b7
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/wget.scm
View File

@ -100,16 +100,14 @@ in downloaded documents to relative links.")
(substitute* "wgetpaste" (substitute* "wgetpaste"
;; dpaste blocks Tor users. Use a better default. ;; dpaste blocks Tor users. Use a better default.
(("DEFAULT_SERVICE:-dpaste") (("DEFAULT_SERVICE:-dpaste")
"DEFAULT_SERVICE-bpaste")) "DEFAULT_SERVICE-bpaste"))))
#t))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(zsh (string-append out "/share/zsh/site-functions"))) (zsh (string-append out "/share/zsh/site-functions")))
(install-file "wgetpaste" bin) (install-file "wgetpaste" bin)
(install-file "_wgetpaste" zsh) (install-file "_wgetpaste" zsh))))
#t)))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
;; /bin/wgetpaste prides itself on relying only on the following ;; /bin/wgetpaste prides itself on relying only on the following
;; inputs, and doesn't need to execute arbitrary commands, so ;; inputs, and doesn't need to execute arbitrary commands, so
@ -121,8 +119,7 @@ in downloaded documents to relative links.")
,(delete-duplicates ,(delete-duplicates
(map (lambda (command) (dirname (which command))) (map (lambda (command) (dirname (which command)))
(list "bash" "mktemp" "sed" "sort" "tee" "tr" (list "bash" "mktemp" "sed" "sort" "tee" "tr"
"wget" "xclip"))))) "wget" "xclip")))))))))
#t))))
#:tests? #f)) ; no test target #:tests? #f)) ; no test target
(inputs (inputs
(list bash-minimal wget xclip)) (list bash-minimal wget xclip))