123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- (define-module (guix build bzr)
- #:use-module (guix build utils)
- #:export (bzr-fetch))
- (define* (bzr-fetch url revision directory
- #:key (bzr-command "bzr"))
- "Fetch REVISION from URL into DIRECTORY. REVISION must be a valid Bazaar
- revision identifier. Return #t on success, else throw an exception."
-
- (setenv "BZR_LOG" "/dev/null")
-
- (invoke bzr-command "-Ossl.cert_reqs=none" "checkout"
- "--lightweight" "-r" revision url directory)
- (with-directory-excursion directory
- (begin
- (delete-file-recursively ".bzr")
- #t)))
|