<raw-paste-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-paste-action> ( -- action )
    <action>
    [ validate-integer-id "id" value paste from-object ] >>init
    [ "contents" value <text-content> ] >>display ;