<delete-action> ( -- action )

Vocabulary

webapps.todo

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.redirection
namespaces ;

IN: webapps.todo

: <delete-action> ( -- action )
    <action> [ validate-integer-id ] >>validate
    [ "id" get <todo> delete-tuples todo-list-url <redirect> ]
    >>submit ;