(do-release) ( version announcement-url -- )

Vocabulary

webapps.mason.version

Inputs

version	an object
announcement-url	an object

Outputs

None

Definition

USING: accessors db.tuples io kernel sequences
webapps.mason.backend webapps.mason.version.binary
webapps.mason.version.data webapps.mason.version.source ;

IN: webapps.mason.version

:: (do-release) ( version announcement-url -- )
    [
        builder new select-tuples :> builders builders first
        release-git-id>> :> git-id builders check-releases
        version make-release-directory
        version builders do-binary-release
        version builders update-binary-releases
        version git-id do-source-release
        version git-id announcement-url update-version
        "Done." print flush
    ] with-mason-db ;