~ruther/guix-local

cc7a79a8ade673cc66249c7b4583a0074348b370 — Maxim Cournoyer 3 years ago d2aa65f
Revert "lint: Append "/info/refs" to git-reference-url."

This reverts commit c9af27d4ca733b20f09019f1465d3e5fdc1ec724.

The change causes 'guix lint' to print URI not reachable (403) errors for
GitHub every URLs.
2 files changed, 2 insertions(+), 9 deletions(-)

M guix/lint.scm
M tests/lint.scm
M guix/lint.scm => guix/lint.scm +1 -8
@@ 1224,14 1224,7 @@ password, provided REF's URI is HTTP or HTTPS."
                '())))
         ((git-reference? (origin-uri origin))
          (warnings-for-uris
           ;; for atftp, lint produced a warning:
           ;;   gnu/packages/networking.scm:2924:5: atftp@0.8.0:
           ;;     URI https://git.code.sf.net/p/atftp/code not reachable:
           ;;     404 ("Not Found")
           ;; fix from here:  https://issues.guix.gnu.org/62156#3
           (list (string->uri (string-append
                               (git-reference-url (origin-uri origin))
                               "/info/refs")))))
           (list (string->uri (git-reference-url (origin-uri origin))))))
         ((or (svn-reference? (origin-uri origin))
              (svn-multi-reference? (origin-uri origin)))
          (let ((uri (svn-reference-uri-with-userinfo (origin-uri origin))))

M tests/lint.scm => tests/lint.scm +1 -1
@@ 1052,7 1052,7 @@
    (parameterize ((%http-server-port 0))
      (with-http-server `((,redirect ""))
        (test-equal "source, git-reference: 301 -> 200"
          (format #f "permanent redirect from ~a/info/refs to ~a"
          (format #f "permanent redirect from ~a to ~a"
                  (%local-url) initial-url)
          (let ((pkg (dummy-package
                      "x"