do-source-release ( version git-id -- )

Vocabulary

webapps.mason.version.source

Inputs

version	an object
git-id	an object

Outputs

None

Definition

USING: io.files.temp io.files.unique kernel ;

IN: webapps.mason.version.source

: do-source-release ( version git-id -- )
    [
        [
            [ make-source-release ]
            [ drop upload-source-release ] 2bi
        ] cleanup-unique-directory
    ] with-temp-directory ;