current-status ( builder -- xml )

Vocabulary

webapps.mason.package

Inputs

builder

an object

Outputs

xml

an object

Definition

USING: accessors arrays kernel present sequences ;

IN: webapps.mason.package

: current-status ( builder -- xml )
    [ status-string ]
    [ current-timestamp>> present " (as of " ")" surround ] bi
    2array ;