diff options
| -rw-r--r-- | guix/lint.scm | 9 | ||||
| -rw-r--r-- | tests/lint.scm | 2 |
2 files changed, 2 insertions, 9 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 3a93ba5325..9eece374ff 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -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)))) diff --git a/tests/lint.scm b/tests/lint.scm index 71e38550a1..ce22e2355a 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -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" |