repo-corrupted-body ( error -- string )

Vocabulary

mason.git.private

Inputs

error

an object

Outputs

string

an object

Definition

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

IN: mason.git.private

: repo-corrupted-body ( error -- string )
    [
        "Corrupted repository on " write host-name write
        " will be re-cloned." print
        "Error while pulling was:" print nl error.
    ] with-string-writer ;