maav / guix-mirror (public) (License: GPLv3+) (since 2019-11-02) (hash sha1)
Mirror of GNU Guix (https://git.savannah.gnu.org/git/guix.git) with personal branches integrated into master branch.
List of commits:
Subject Hash Author Date (UTC)
build: svn: Handle fetch errors. 2fb12dd1bb725592e1561ac8f4b32fb68accb161 zimoun 2020-10-05 16:47:39
build: hg: Handle fetch errors. a5a3f813c74aa8143af1e42a3d754f1bf7be2fb0 zimoun 2020-10-05 16:36:34
gnu: chatty: Update to 0.1.16. 32530a66508e4cfe2eb96e43054af85e97433f93 Michael Rohleder 2020-10-05 06:57:44
gnu: emacs-dtrt-indent: Update to 1.2. 89ca634050a985e672beb10afb9cc0f3f06dce27 Joseph LaFreniere 2020-10-04 18:58:06
gnu: emacs-helpful: Update to 0.18. 79fa492fb5f3edd4075a19d1894dde93c2b0c0b0 Michael Rohleder 2020-10-04 10:17:47
gnu: Add memkind. a6d78f2bbae64ba0be03c734871035217071112f Danny Milosavljevic 2020-10-06 07:54:31
images: Add pine64-barebones-raw-image. 8a4f1eef98490827b331460d7432de843926869b Mathieu Othacehe 2020-10-06 07:50:55
build-system/cargo: Don't install .crates.toml file. c1cc0c4865a8bfff43c5c9bd6ae8dcadb061c8a0 Efraim Flashner 2020-10-06 07:29:47
gnu: emacs-ivy-posframe: Update to 0.5.0. 3b186ab72b135f0b9cbc3a59c4d8b6cee99b6e73 Nicolas Goaziou 2020-10-06 07:09:48
gnu: vlang: Correctly refer to output directories. 527b27f14c110bda4c02bc3f6ee2efb1129458c4 Efraim Flashner 2020-10-06 06:45:13
gnu: vlang: Use cc-for-target. 6450070b9197516f84ff15d8c8653544ea1fb119 Efraim Flashner 2020-10-06 06:44:25
services: dnsmasq: Add TFTP configuration fields. 34d1c0a03b51fdaef26a3bc630ab096da740e1d6 Danny Milosavljevic 2020-09-27 19:06:30
gnu: lsh: Enable some tests. 3e34f89980416a3b2f8637b3f7d15e35ff56e92d Maxim Cournoyer 2020-10-06 03:52:24
gnu: lsh: Fix X11 forwarding. 0ec195ff02f2817bc52f9c06b85a89b414b0b28c Maxim Cournoyer 2020-10-06 03:48:45
gnu: perl-cgi: Update to 4.51. fb81bd9e0bcd12bd371ec8b87f5ade777995e6c4 Tobias Geerinckx-Rice 2020-10-06 00:53:24
gnu: python-flake8: Update to 3.8.4. f6a087a68fa133649940a35011692944c4426dfb Tobias Geerinckx-Rice 2020-10-06 00:53:13
gnu: seahorse: Update to 3.36.2. f68cbccf5df51038f595a625a88f61b1bced6116 Tobias Geerinckx-Rice 2020-10-06 00:45:39
gnu: s6-portable-utils: Update to 2.2.3.0. b8da9c30d4fea873b77a831341048068653b4f3b Tobias Geerinckx-Rice 2020-10-06 00:40:51
gnu: s6-dns: Update to 2.3.3.0. f182b49c87505b68f8debe45be711ba05ca87556 Tobias Geerinckx-Rice 2020-10-06 00:40:49
gnu: obs: Update to 26.0.1. 69ba32312b698240d9c3f69a872b82ef8166787b Tobias Geerinckx-Rice 2020-10-06 00:40:14
Commit 2fb12dd1bb725592e1561ac8f4b32fb68accb161 - build: svn: Handle fetch errors.
* guix/build/svn.scm (svn-fetch): Add 'guard' to handle errors.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
Author: zimoun
Author date (UTC): 2020-10-05 16:47
Committer name: Mathieu Othacehe
Committer date (UTC): 2020-10-06 08:24
Parent(s): a5a3f813c74aa8143af1e42a3d754f1bf7be2fb0
Signer:
Signing key: 8354763531769CA6
Signing status: E
Tree: c04504ceda9478f5d13b31251559c31c784b21fe
File Lines added Lines deleted
guix/build/svn.scm 31 15
File guix/build/svn.scm changed (mode: 100644) (index 33783f3056..48d28f0327)
2 2 ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
3 3 ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in> ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
4 4 ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
5 ;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
5 6 ;;; ;;;
6 7 ;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
7 8 ;;; ;;;
 
20 21
21 22 (define-module (guix build svn) (define-module (guix build svn)
22 23 #:use-module (guix build utils) #:use-module (guix build utils)
24 #:use-module (srfi srfi-34)
25 #:use-module (ice-9 format)
23 26 #:export (svn-fetch)) #:export (svn-fetch))
24 27
25 28 ;;; Commentary: ;;; Commentary:
 
36 39 (password #f)) (password #f))
37 40 "Fetch REVISION from URL into DIRECTORY. REVISION must be an integer, and a "Fetch REVISION from URL into DIRECTORY. REVISION must be an integer, and a
38 41 valid Subversion revision. Return #t on success, #f otherwise." valid Subversion revision. Return #t on success, #f otherwise."
39 (apply invoke svn-command
40 "export" "--non-interactive"
41 ;; Trust the server certificate. This is OK as we
42 ;; verify the checksum later. This can be removed when
43 ;; ca-certificates package is added.
44 "--trust-server-cert" "-r" (number->string revision)
45 `(,@(if (and user-name password)
46 (list (string-append "--username=" user-name)
47 (string-append "--password=" password))
48 '())
49 ,@(if recursive?
50 '()
51 (list "--ignore-externals"))
52 ,url ,directory))
53 #t)
42 (mkdir-p directory)
43
44 (guard (c ((invoke-error? c)
45 (format (current-error-port)
46 "svn-fetch: '~a~{ ~a~}' failed with exit code ~a~%"
47 (invoke-error-program c)
48 (invoke-error-arguments c)
49 (or (invoke-error-exit-status c)
50 (invoke-error-stop-signal c)
51 (invoke-error-term-signal c)))
52 (delete-file-recursively directory)
53 #f))
54 (with-directory-excursion directory
55 (apply invoke svn-command
56 "export" "--non-interactive"
57 ;; Trust the server certificate. This is OK as we
58 ;; verify the checksum later. This can be removed when
59 ;; ca-certificates package is added.
60 "--trust-server-cert" "-r" (number->string revision)
61 `(,@(if (and user-name password)
62 (list (string-append "--username=" user-name)
63 (string-append "--password=" password))
64 '())
65 ,@(if recursive?
66 '()
67 (list "--ignore-externals"))
68 ,url ,directory))
69 #t)))
54 70
55 71 ;;; svn.scm ends here ;;; svn.scm ends here
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/maav/guix-mirror

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/maav/guix-mirror

Clone this repository using git:
git clone git://git.rocketgit.com/user/maav/guix-mirror

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main