[bug#30833] [PATCH] git-download: Fix recursive checkouts.

[Eric Bavier]

Hello Guix,

The attached patch fixes a regression in recursive git checkouts of
package source, which I believe was introduced in
6dff905e51202bbdebbad8811b6509584d12a796 (2017-09-05!)

This would have only affected 6 packages:

scheme@(guile-user)> (format #t "~{~a~%~}"
  (fold-packages
   (lambda (p r) 
     (if (and=> (package-source p)
                (lambda (s) 
                  (and (git-reference? (origin-uri s))
                       (git-reference-recursive? (origin-uri s))))) 
       (cons p r)
       r))
   '())
#<package address@hidden gnu/packages/compression.scm:912 2928000>
#<package address@hidden gnu/packages/robotics.scm:79 3199e40>
#<package address@hidden gnu/packages/terminals.scm:446 2e28b40>
#<package address@hidden gnu/packages/terminals.scm:102 2e25240>
#<package address@hidden gnu/packages/wget.scm:126 2728900>
#<package address@hidden gnu/packages/zile.scm:83 3c660c0>
$8 = #t

`~Eric

0001-git-download-Fix-recursive-checkouts.patch
Description: Text Data

pgpjXw3EG44jZ.pgp
Description: OpenPGP digital signature