notify-report ( status -- )

Vocabulary

mason.notify

Inputs

status

an object

Outputs

None

Definition

USING: accessors io.encodings.utf8 io.files kernel mason.common
mason.email sequences ;

IN: mason.notify

: notify-report ( status -- )
    [
        name>> "Build finished with status: " prepend
        print-timestamp
    ] [
        [ "report" utf8 file-contents ] dip
        [ name>> "report" status-notify ] [ email-report ] 2bi
    ] bi ;