unparse-host-part ( url -- )

Vocabulary

urls.private

Inputs

url

an object

Outputs

None

Definition

USING: accessors combinators kernel make math.parser sequences ;

IN: urls.private

: unparse-host-part ( url -- )
    {
        [ unparse-username-password ]
        [ unparse-host % ]
        [ url-port [ ":" % # ] when* ]
        [ path>> "/" head? [ "/" % ] unless ]
    } cleave ;