(get-user) ( username -- user/f )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

username

an object

Outputs

user/f

an object

Definition

USING: accessors furnace.auth.providers.couchdb json kernel
namespaces urls ;

IN: furnace.auth.providers.couchdb.private

: (get-user) ( username -- user/f )
    couchdb-auth-provider get username-view>> get-url swap >json
    "key" set-query-param url>user ;