<raw-annotation-action> ( -- action )

Vocabulary

webapps.pastebin

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions html.forms
http.server.responses ;

IN: webapps.pastebin

: <raw-annotation-action> ( -- action )
    <action> [
        validate-integer-id "id" value lookup-annotation
        from-object
    ] >>init [ "contents" value <text-content> ] >>display ;