status-string ( builder -- string )

Vocabulary

webapps.mason.package

Inputs

builder

an object

Outputs

string

an object

Definition

USING: accessors combinators kernel webapps.mason.backend ;

IN: webapps.mason.package

: status-string ( builder -- string )
    dup status>> {
        { +idle+ [ drop "Idle" ] }
        { +starting+ [ "Starting build" building ] }
        { +make-vm+ [ "Compiling VM" building ] }
        { +boot+ [ "Bootstrapping" building ] }
        { +test+ [ "Testing" building ] }
        { +upload+ [ "Uploading package" building ] }
        { +finish+ [ "Finishing build" building ] }
        { +dirty+ [ drop "Dirty" ] }
        { +clean+ [ drop "Clean" ] }
        { +error+ [ drop "Error" ] }
        [ 2drop "Unknown" ]
    } case ;