handle-get ( 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-get ( action -- response )
    [
        dup display>> [
            {
                [ init>> ( -- ) call-effect ]
                [ authorize>> ( -- ) call-effect ]
                [ drop restore-validation-errors ]
                [ display>> ( -- response ) call-effect ]
            } cleave
        ] [ drop <400> ] if
    ] curry with-exit-continuation ;