unparse-username-password ( url -- )

Vocabulary

urls.private

Inputs

url

an object

Outputs

None

Definition

USING: accessors kernel make urls.encoding ;

IN: urls.private

: unparse-username-password ( url -- )
    dup username>> dup [
        url-encode % password>> [ ":" % url-encode % ] when*
        "@" %
    ] [ 2drop ] if ;