zealot-github-ensure ( user project -- process )

Vocabulary

zealot

Inputs

user	an object
project	an object

Outputs

process

an object

Definition

USING: combinators kernel ;

IN: zealot

: zealot-github-ensure ( user project -- process )
    2dup zealot-github-exists-locally? [
        {
            [ zealot-github-fetch-all drop ]
            [ zealot-github-fetch-tags drop ]
            [ zealot-github-pull ]
        } 2cleave
    ] [ zealot-github-clone ] if ;