Switch to https urls

[factor.git] / extra / rosetta-code / web-scraping / web-scraping.factor

diff --git a/extra/rosetta-code/web-scraping/web-scraping.factor b/extra/rosetta-code/web-scraping/web-scraping.factor
index 7a71e19b51887e20a6d3c4a03ca72b3bf9c6513b..2b8fb5b1baed6b0c88241651ffef6301353277e1 100644 (file)
--- a/extra/rosetta-code/web-scraping/web-scraping.factor
+++ b/extra/rosetta-code/web-scraping/web-scraping.factor
@@ -1,12 +1,12 @@
 ! Copyright (c) 2012 Anonymous
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: http.client io kernel math sequences ;
 IN: rosetta-code.web-scraping
 
-! http://rosettacode.org/wiki/Web_scraping
+! https://rosettacode.org/wiki/Web_scraping
 
 ! Create a program that downloads the time from this URL:
-! http://tycho.usno.navy.mil/cgi-bin/timer.pl and then prints the
+! https://tycho.usno.navy.mil/cgi-bin/timer.pl and then prints the
 ! current UTC time by extracting just the UTC time from the web
 ! page's HTML.
 
@@ -15,7 +15,7 @@ IN: rosetta-code.web-scraping
 ! and popular such as CPAN for Perl or Boost for C++.
 
 : web-scraping-main ( -- )
-    "http://tycho.usno.navy.mil/cgi-bin/timer.pl" http-get nip
+    "https://tycho.usno.navy.mil/cgi-bin/timer.pl" http-get nip
     [ "UTC" subseq-index [ 9 - ] [ 1 - ] bi ] keep subseq print ;
 
 MAIN: web-scraping-main