<deactivate-user-action> ( -- action )

Vocabulary

furnace.auth.features.deactivate-user

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.asides furnace.auth
kernel namespaces urls ;

IN: furnace.auth.features.deactivate-user

: <deactivate-user-action> ( -- action )
    <action> [
        logged-in-user get 1 >>deleted t >>changed? drop
        URL" %24realm" end-aside
    ] >>submit ;