Show old links in report

Show links as http not https.

Author: jorinvo

httpsyet/crawler.go

@@ -189,7 +189,8 @@ func (c Crawler) crawl(sites <-chan site, queue chan<- site, results chan<- stri
 		}
 
 		if shouldUpdate {
-			results <- fmt.Sprintf("%v %v", s.Parent, s.URL)
+			s.URL.Scheme = "http"
+			results <- fmt.Sprintf("%v %v", s.Parent, s.URL.String())
 		}
 
 		urls, err := toURLs(links, s.URL.Parse)

httpsyet/crawler_test.go

@@ -171,9 +171,9 @@ func TestRun(t *testing.T) {
 	expect = fmt.Sprintf(
 		"%s/base %s/page-a\n%s/sub %s/page-c\n",
 		pageServer.URL,
-		tlsServer.URL,
+		strings.Replace(tlsServer.URL, "https", "http", 1),
 		pageServer.URL,
-		tlsServer.URL,
+		strings.Replace(tlsServer.URL, "https", "http", 1),
 	)
 	eqLines(t, expect, out.String(), "unexpected output")
 
@@ -257,9 +257,9 @@ func TestRunSingle(t *testing.T) {
 	expect = fmt.Sprintf(
 		"%s/base %s/page-a\n%s/sub %s/page-c\n",
 		pageServer.URL,
-		tlsServer.URL,
+		strings.Replace(tlsServer.URL, "https", "http", 1),
 		pageServer.URL,
-		tlsServer.URL,
+		strings.Replace(tlsServer.URL, "https", "http", 1),
 	)
 	eqLines(t, expect, out.String(), "unexpected output")