<delete-user-action> ( -- action )

Vocabulary

webapps.user-admin

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions
furnace.auth.providers furnace.redirection html.forms urls ;

IN: webapps.user-admin

: <delete-user-action> ( -- action )
    <action> [
        validate-username "username" value <user> delete-tuples
        URL" %24user-admin" <redirect>
    ] >>submit ;