1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
4 ;;; This file is part of GNU Guix.
6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or (at
9 ;;; your option) any later version.
11 ;;; GNU Guix is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ;;; GNU General Public License for more details.
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
19 (define-module (guix build bzr)
20 #:use-module (guix build utils)
25 ;;; This is the build-side support code of (guix bzr-download). It allows a
26 ;;; Bazaar repository to be branched at a specific revision.
30 (define* (bzr-fetch url revision directory
31 #:key (bzr-command "bzr"))
32 "Fetch REVISION from URL into DIRECTORY. REVISION must be a valid Bazaar
33 revision identifier. Return #t on success, else throw an exception."
34 ;; Do not attempt to write .bzr.log to $HOME, which doesn't exist.
35 (setenv "BZR_LOG" "/dev/null")
36 ;; Disable SSL certificate verification; we rely on the hash instead.
37 (invoke bzr-command "-Ossl.cert_reqs=none" "checkout"
38 "--lightweight" "-r" revision url directory)
39 (with-directory-excursion directory
41 (delete-file-recursively ".bzr")