build-status ( git-id timestamp -- xml )

Vocabulary

webapps.mason.package

Inputs

git-id	an object
timestamp	an object

Outputs

xml

an object

Definition

USING: arrays kernel mason.report present sequences ;

IN: webapps.mason.package

: build-status ( git-id timestamp -- xml )
    over [
        [ git-link ] [ present ] bi* " (built on " ")" surround
        2array
    ] [ 2drop f ] if ;