git-repo-dirty ( files -- )

Vocabulary

mason.git.private

Inputs

files

an object

Outputs

None

Definition

USING: io.directories mason.email ;

IN: mason.git.private

: git-repo-dirty ( files -- )
    repo-dirty-body "dirty repo" email-fatal
    "factor" delete-tree git-clone ;