unparse-host ( url -- host )

Vocabulary

urls.private

Inputs

url

an object

Outputs

host

an object

Definition

USING: accessors kernel sequences urls.encoding ;

IN: urls.private

: unparse-host ( url -- host )
    host>> ipv6-host
    [ url-encode ] [ [ "[" "]" surround ] when ] bi* ;