update-builder ( builder -- )

Vocabulary

webapps.mason.status-update

Inputs

builder

an object

Outputs

None

Definition

USING: combinators html.forms ;

IN: webapps.mason.status-update

: update-builder ( builder -- )
    "message" value {
        { "heartbeat" [ heartbeat ] }
        { "idle" [ idle ] }
        { "git-id" [ "arg" value git-id ] }
        { "make-vm" [ make-vm ] }
        { "boot" [ boot ] }
        { "test" [ test ] }
        { "report" [ "report" value "arg" value report ] }
        { "benchmarks" [ "report" value benchmarks ] }
        { "upload" [ upload ] }
        { "finish" [ finish ] }
        { "release" [ "arg" value release ] }
    } case ;