git-pull-failed ( error -- )

Vocabulary

mason.git.private

Inputs

error

an object

Outputs

None

Definition

USING: accessors continuations io.launcher kernel sequences ;

IN: mason.git.private

: git-pull-failed ( error -- )
    dup output-process-error? [
        dup output>> "not uptodate. Cannot merge." subseq-of?
        [ git-repo-corrupted ] [ rethrow ] if
    ] [ rethrow ] if ;