raco pkg update: avoid too-early normalization of clone URL

For example,

  raco pkg update --lookup gui-doc

should suggest uncloning "gui-lib", too, assuming they were
cloned in the usual way. Due to too-early normalization of
GitHub URLs, though, shared-clone detection was broken.
This commit is contained in:
Matthew Flatt 2016-03-17 13:29:27 -06:00
parent e412a2d5a9
commit b1ff73155f

View File

@ -396,7 +396,7 @@
(define pkg-url (string->url (pkg-desc-source d)))
(define-values (transport host port repo branch path)
(split-git-or-hub-url #:type type pkg-url))
(real-git-url pkg-url #:type type host port repo)]
(real-git-url pkg-url #:type 'clone host port repo)]
[else #f])))
(define (pkg-info->clone-desc name info