b2-auth. ( json -- )

Vocabulary

backblaze

Inputs

json

an object

Outputs

None

Definition

USING: assocs combinators formatting io ;

IN: backblaze

: b2-auth. ( json -- )
    {
        [ "accountId" of "accountId: %s" sprintf print ]
        [
            "apiInfo" of "appInfo" print "storageApi" of
            b2-storage-api.
        ]
        [
            "applicationKeyExpirationTimestamp" of
            "applicationKeyExpirationTimestamp: %s" sprintf
            print
        ]
        [
            "authorizationToken" of
            "authorizationToken: %s" sprintf print
        ]
    } cleave ;