give-capability ( username capability -- )

Vocabulary

webapps.user-admin

Inputs

username	an object
capability	an object

Outputs

None

Definition

USING: accessors db.tuples furnace.auth.providers kernel
sequences ;

IN: webapps.user-admin

: give-capability ( username capability -- )
    [ <user> select-tuple ] dip [ suffix ] curry
    change-capabilities update-tuple ;