diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2019-08-08 00:35:37 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2019-08-08 00:35:37 +0200 |
| commit | 8e7f97b9ffee10af3cf16958ebc0a7d410a19ca8 (patch) | |
| tree | b3836f9cea849fd8bfb61a77ba225a0054babe58 /guix/build | |
| parent | fa228db78bc9dcb0e7da607dd8783224c76d7ef5 (diff) | |
| parent | ba7ff983d613f735ee270f0b0e3c5dba5cbeda3c (diff) | |
Merge branch 'master' into staging
Diffstat (limited to 'guix/build')
| -rw-r--r-- | guix/build/svn.scm | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/guix/build/svn.scm b/guix/build/svn.scm index 913f89471b..e3188add3e 100644 --- a/guix/build/svn.scm +++ b/guix/build/svn.scm @@ -36,7 +36,7 @@ "Fetch REVISION from URL into DIRECTORY. REVISION must be an integer, and a valid Subversion revision. Return #t on success, #f otherwise." (apply invoke svn-command - "checkout" "--non-interactive" + "export" "--non-interactive" ;; Trust the server certificate. This is OK as we ;; verify the checksum later. This can be removed when ;; ca-certificates package is added. @@ -46,13 +46,6 @@ valid Subversion revision. Return #t on success, #f otherwise." (string-append "--password=" password)) '()) ,url ,directory)) - - ;; The contents of '.svn' vary as a function of the current status - ;; of the repo. Since we want a fixed output, this directory needs - ;; to be taken out. - (with-directory-excursion directory - (for-each delete-file-recursively (find-files "." "^\\.svn$" #:directories? #t))) - #t) ;;; svn.scm ends here |