summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorJulien Lepiller <julien@lepiller.eu>2019-10-21 21:48:31 +0200
committerJulien Lepiller <julien@lepiller.eu>2019-10-23 23:31:08 +0200
commit51395c84fdbf8daed6392951a973ad750cf3eefa (patch)
treef9e8132725a771b1f780d2f2943105ca9116f870 /guix/build
parentb40f4a5995cff00077aa60881737d0d0f6871982 (diff)
guix: svn: Allow dropping externals.
* guix/build/svn.scm (svn-fetch): Allow to ignore externals. * guix/svn-download.scm (svn-reference, svn-multi-reference): Add recursive? field.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/svn.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/build/svn.scm b/guix/build/svn.scm
index e3188add3e..33783f3056 100644
--- a/guix/build/svn.scm
+++ b/guix/build/svn.scm
@@ -31,6 +31,7 @@
(define* (svn-fetch url revision directory
#:key (svn-command "svn")
+ (recursive? #t)
(user-name #f)
(password #f))
"Fetch REVISION from URL into DIRECTORY. REVISION must be an integer, and a
@@ -45,6 +46,9 @@ valid Subversion revision. Return #t on success, #f otherwise."
(list (string-append "--username=" user-name)
(string-append "--password=" password))
'())
+ ,@(if recursive?
+ '()
+ (list "--ignore-externals"))
,url ,directory))
#t)