Revert "guix: svn: Allow dropping externals."
This reverts commit 51395c84fd
,
fixing <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=37896>.
Reported by <o.rojon@posteo.net>.
This commit is contained in:
parent
f98be942e3
commit
8a2b231782
|
@ -31,7 +31,6 @@
|
|||
|
||||
(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
|
||||
|
@ -46,9 +45,6 @@ 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)
|
||||
|
||||
|
|
|
@ -31,7 +31,6 @@
|
|||
svn-reference?
|
||||
svn-reference-url
|
||||
svn-reference-revision
|
||||
svn-reference-recursive?
|
||||
svn-fetch
|
||||
download-svn-to-store
|
||||
|
||||
|
@ -40,7 +39,6 @@
|
|||
svn-multi-reference-url
|
||||
svn-multi-reference-revision
|
||||
svn-multi-reference-locations
|
||||
svn-multi-reference-recursive?
|
||||
svn-multi-fetch))
|
||||
|
||||
;;; Commentary:
|
||||
|
@ -54,11 +52,10 @@
|
|||
(define-record-type* <svn-reference>
|
||||
svn-reference make-svn-reference
|
||||
svn-reference?
|
||||
(url svn-reference-url) ; string
|
||||
(revision svn-reference-revision) ; number
|
||||
(recursive? svn-reference-recursive? (default #t))
|
||||
(user-name svn-reference-user-name (default #f))
|
||||
(password svn-reference-password (default #f)))
|
||||
(url svn-reference-url) ; string
|
||||
(revision svn-reference-revision) ; number
|
||||
(user-name svn-reference-user-name (default #f))
|
||||
(password svn-reference-password (default #f)))
|
||||
|
||||
(define (subversion-package)
|
||||
"Return the default Subversion package."
|
||||
|
@ -81,7 +78,6 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
|
|||
'#$(svn-reference-revision ref)
|
||||
#$output
|
||||
#:svn-command (string-append #+svn "/bin/svn")
|
||||
#:recursive? #$(svn-reference-recursive? ref)
|
||||
#:user-name #$(svn-reference-user-name ref)
|
||||
#:password #$(svn-reference-password ref)))))
|
||||
|
||||
|
@ -100,7 +96,6 @@ 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))
|
||||
(user-name svn-multi-reference-user-name (default #f))
|
||||
(password svn-multi-reference-password (default #f)))
|
||||
|
||||
|
@ -130,8 +125,6 @@ HASH-ALGO (a symbol). Use NAME as the file name, or a generic name if #f."
|
|||
(string-append #$output "/" location)
|
||||
(string-append #$output "/" (dirname location)))
|
||||
#:svn-command (string-append #+svn "/bin/svn")
|
||||
#:recursive?
|
||||
#$(svn-reference-recursive? ref)
|
||||
#:user-name #$(svn-multi-reference-user-name ref)
|
||||
#:password #$(svn-multi-reference-password ref)))
|
||||
'#$(svn-multi-reference-locations ref)))))
|
||||
|
|
Loading…
Reference in New Issue