diff options
| author | Julien Lepiller <julien@lepiller.eu> | 2019-10-21 21:48:31 +0200 |
|---|---|---|
| committer | Julien Lepiller <julien@lepiller.eu> | 2019-11-13 22:49:47 +0100 |
| commit | 277ba1d4f841dcc57a259caeed298567d5143eae (patch) | |
| tree | 7cee75515a28f45e58b5925bf0e81b551df3f3c0 /guix/build | |
| parent | 934b83e45a0bb715eee44067b7b778e381f86248 (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.scm | 4 |
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) |