update-version ( version git-id announcement-url -- )

Vocabulary

webapps.mason.version.data

Inputs

version	an object
git-id	an object
announcement-url	an object

Outputs

None

Definition

USING: accessors calendar db.tuples kernel
webapps.mason.version.files ;

IN: webapps.mason.version.data

: update-version ( version git-id announcement-url -- )
    version new swap >>announcement-url swap >>git-id swap
    [ >>version ] [ source-release-name >>source-path ] bi
    now >>timestamp insert-tuple ;