status-notify ( report arg message -- )

Vocabulary

mason.notify

Inputs

report	an object
arg	an object
message	an object

Outputs

None

Definition

USING: continuations debugger http.client io kernel mason.common
mason.config namespaces ;

IN: mason.notify

: status-notify ( report arg message -- )
    status-notify? [
        [ status-params status-url get http-post 2drop ] 3curry
        [ [ 5 ] ] dip [ retry ] curry compose
        [ "STATUS NOTIFY FAILED:" print-timestamp error. flush ]
        recover
    ] [ 3drop ] if ;