basic-auth ( username password -- str )

Vocabulary

http

Inputs

username	an object
password	an object

Outputs

str

an object

Definition

USING: base64 sequences ;

IN: http

: basic-auth ( username password -- str )
    ":" glue >base64 "Basic " "" prepend-as ;