report ( builder content status -- )

Vocabulary

webapps.mason.status-update

Inputs

builder	an object
content	an object
status	an object

Outputs

None

Definition

USING: accessors calendar kernel webapps.mason.backend ;

IN: webapps.mason.status-update

: report ( builder content status -- )
    [ >>last-report now >>current-timestamp ] dip +clean+ = [
        dup current-git-id>> >>clean-git-id
        dup current-timestamp>> >>clean-timestamp
    ] when dup current-git-id>> >>last-git-id
    dup current-timestamp>> >>last-timestamp drop ;