git-repo-corrupted ( error -- )

Vocabulary

mason.git.private

Inputs

error

an object

Outputs

None

Definition

USING: io.directories mason.email ;

IN: mason.git.private

: git-repo-corrupted ( error -- )
    repo-corrupted-body "corrupted repo" email-fatal
    "factor" delete-tree git-clone ;