repo-dirty-body ( error -- string )

Vocabulary

mason.git.private

Inputs

error

an object

Outputs

string

an object

Definition

USING: io io.sockets io.streams.string sequences ;

IN: mason.git.private

: repo-dirty-body ( error -- string )
    [
        "Dirty repository on " write host-name write
        " will be re-cloned." print
        "Modified and untracked files:" print nl [ print ] each
    ] with-string-writer ;