url>user ( couchdb-url -- user/f )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

couchdb-url

an object

Outputs

user/f

an object

Definition

USING: assocs couchdb kernel sequences ;

IN: furnace.auth.providers.couchdb.private

: url>user ( couchdb-url -- user/f )
    couch-get "rows" of dup empty?
    [ drop f ] [ first "value" of ] if ;