(new-user) ( user -- user/f )

Vocabulary

furnace.auth.providers.couchdb.private

Inputs

user

an object

Outputs

user/f

an object

Definition

USING: accessors couchdb kernel make ;

IN: furnace.auth.providers.couchdb.private

: (new-user) ( user -- user/f )
    dup
    [ [ username>> "username" ,, ] [ email>> "email" ,, ] bi ]
    H{ } make reserve-multiple
    [ user>user-hash "" get-url couch-post ] [ drop f ] if ;