ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-09 04:40:06 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: wgetpaste: Remove trailing #t from phases.

Browse source 
* gnu/packages/wget.scm (wgetpaste)[arguments]: Remove trailing #t from
phases.
This commit is contained in:
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 @@ (define-public wgetpaste
(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 @@ (define-public wgetpaste
,(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))