04/08: svn-download: Default to non-recursive checkouts.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d036e1c54496b8239d08f65e559d71d837315847
Author: Ludovic Courtès <ludovic.courtes@inria.fr>
AuthorDate: Fri Apr 7 15:44:58 2023 +0200

    svn-download: Default to non-recursive checkouts.
    
    As it turns out, all packages that fetch code from Subversion expect it
    to be non-recursive by default.  Clarify that.
    
    Reported by Timothy Sample <samplet@ngyro.com>.
    
    * guix/svn-download.scm (<svn-reference>)[recursive?]: Default to #f.
    (<svn-multi-reference>)[recursive?]: Likewise.
---
 guix/svn-download.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/svn-download.scm b/guix/svn-download.scm
index e0a26b73ee..769571b5f6 100644
--- a/guix/svn-download.scm
+++ b/guix/svn-download.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014-2016, 2019, 2021-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2014-2016, 2019, 2021-2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
 ;;; Copyright © 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
 ;;;
@@ -63,7 +63,7 @@
   svn-reference?
   (url        svn-reference-url)                    ; string
   (revision   svn-reference-revision)               ; number
-  (recursive? svn-reference-recursive? (default #t))
+  (recursive? svn-reference-recursive? (default #f))
   (user-name  svn-reference-user-name (default #f))
   (password   svn-reference-password (default #f)))
 
@@ -132,7 +132,7 @@ HASH-ALGO (a symbol).  Use NAME as the file name, or a 
generic name if #f."
   (url        svn-multi-reference-url)                 ; string
   (revision   svn-multi-reference-revision)            ; number
   (locations  svn-multi-reference-locations)           ; list of strings
-  (recursive? svn-multi-reference-recursive? (default #t))
+  (recursive? svn-multi-reference-recursive? (default #f))
   (user-name  svn-multi-reference-user-name (default #f))
   (password   svn-multi-reference-password (default #f)))