Switch to https urls

[factor.git] / basis / http / client / client.factor

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index a41146a6a4236c9b924b3fb02fbdabb6133069aa..89876f26503303b677f0cc67e16f3465619417b8 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -1,5 +1,5 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: accessors ascii assocs calendar combinators
 combinators.short-circuit destructors environment hashtables
 http http.client.post-data http.parsers io io.crlf io.encodings
@@ -209,7 +209,7 @@ SYMBOL: redirects
 : request-url ( url -- url' )
     dup >url dup misparsed-url? [
         drop dup url? [ present ] when
-        "http://" prepend >url
+        "https://" prepend >url
     ] [ nip ] if ensure-port ;
 
 : ?default-proxy ( request -- request' )