gnu: Add go-github-com-caddyserver-zerossl. - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/gnu/tests

diff options

author	Artyom V. Poptsov <poptsov.artyom@gmail.com>	2024-11-14 21:38:00 +0300
committer	Artyom V. Poptsov <poptsov.artyom@gmail.com>	2024-11-22 18:59:17 +0300
commit	507c9da4e6c1e5087f981af3292995f007eed29d (patch)
tree	93939726a7fe3a813cb04f303d266a211509b9bd /gnu/tests
parent	2fec407b2745898d0a304c172a27dfe0a8787122 (diff)
download	guix-507c9da4e6c1e5087f981af3292995f007eed29d.tar.gz guix-507c9da4e6c1e5087f981af3292995f007eed29d.zip

gnu: Add go-github-com-caddyserver-zerossl.

* gnu/packages/golang-web.scm (go-github-com-caddyserver-zerossl): New variable. Change-Id: Ibec80ae2d4d86f99f8bc271a1c4dfd2591d66290 Reviewed-by: Sharlatan Hellseher <sharlatanus@gmail.com>

Diffstat (limited to 'gnu/tests')

0 files changed, 0 insertions, 0 deletions

11) (guix utils) (guix hash)) (define %url-base "http://alpha.gnu.org/gnu/guix/bootstrap" ;; Alternately: ;;"http://www.fdn.fr/~lcourtes/software/guix/packages" ) ;; XXX: Work around <http://bugs.gnu.org/13095>, present in Guile ;; up to 2.0.7. (module-define! (resolve-module '(web client)) 'shutdown (const #f)) (define (file-name->uri file) "Return the URI for FILE." (match (string-tokenize file (char-set-complement (char-set #\/))) ((_ ... system basename) (string->uri (string-append %url-base "/" system (match system ("armhf-linux" "/20150101/") (_ "/20131110/")) basename))))) (match (command-line) ((_ file expected-hash) (let ((uri (file-name->uri file))) (format #t "downloading file `~a' from `~a'...~%" file (uri->string uri)) (let*-values (((resp data) (http-get uri #:decode-body? #f)) ((hash) (bytevector->base16-string (sha256 data))) ((part) (string-append file ".part"))) (if (string=? expected-hash hash) (begin (call-with-output-file part (lambda (port) (put-bytevector port data))) (rename-file part file)) (begin (format (current-error-port) "file at `~a' has SHA256 ~a; expected ~a~%" (uri->string uri) hash expected-hash) (exit 1)))))))