build-loop ( -- )

Vocabulary

mason

Inputs

None

Outputs

None

Definition

USING: accessors calendar continuations io.directories kernel
mason.build mason.config mason.disk mason.updates namespaces
threads ;

IN: mason

: build-loop ( -- )
    [
        builds-dir get make-directories builds-dir get [
            check-disk-space update-sources should-build?
            [ do-build ] [ 5 minutes sleep ] if
        ] with-directory
    ] [
        error-continuation get call>> build-loop-error
        5 minutes sleep
    ] recover build-loop ;