urls: example for secure url-addr

2013-09-09 15:41:26 +02:00 · 2013-09-09 15:41:26 +02:00 · d3e5312b44
parent 1c74268af7
commit d3e5312b44
1 changed files with 7 additions and 0 deletions
--- a/basis/urls/urls-docs.factor
+++ b/basis/urls/urls-docs.factor
@ -156,6 +156,13 @@ HELP: url-addr
        "URL\" ftp://ftp.cdrom.com\" url-addr ."
        "T{ inet { host \"ftp.cdrom.com\" } { port 21 } }"
    }
+    { $example
+        "USING: prettyprint urls ;"
+        "URL\" https://google.com/\" url-addr ."
+        "T{ secure"
+        "{ addrspec T{ inet { host \"google.com\" } { port 443 } } }"
+        "}"
+    }
 } ;

 HELP: url-append-path