handle-post ( action -- response )

Vocabulary

furnace.actions

Inputs

action

an object

Outputs

response

an object

Definition

USING: accessors combinators furnace.utilities
http.server.responses kernel ;

IN: furnace.actions

: handle-post ( action -- response )
    [
        dup submit>> [
            [ validate>> ( -- ) call-effect ]
            [ authorize>> ( -- ) call-effect ]
            [ submit>> ( -- response ) call-effect ] tri
        ] [ drop <400> ] if
    ] curry with-exit-continuation ;