Switch to https urls

[factor.git] / extra / wikipedia / wikipedia.factor

diff --git a/extra/wikipedia/wikipedia.factor b/extra/wikipedia/wikipedia.factor
index cc7d7b2eec23d4fb2b3cc227c791723b92de6332..435890b7c819c910de7c6c99e9243a57b2f9b8a1 100644 (file)
--- a/extra/wikipedia/wikipedia.factor
+++ b/extra/wikipedia/wikipedia.factor
@@ -1,5 +1,5 @@
 ! Copyright (C) 2012 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
+! See https://factorcode.org/license.txt for BSD license
 
 USING: accessors ascii assocs calendar colors combinators
 command-line eval formatting html.entities html.parser
@@ -19,7 +19,7 @@ language [ "en" ] initialize
 <PRIVATE
 
 : wikipedia-url ( path -- url )
-    language get swap "http://%s.wikipedia.org/%s" sprintf >url ;
+    language get swap "https://%s.wikipedia.org/%s" sprintf >url ;
 
 : header. ( string -- )
     H{ { font-size 20 } { font-style bold } } format nl ;