upload ( archive-name -- )

Vocabulary

mason.release.upload

Inputs

archive-name

an object

Outputs

None

Definition

USING: kernel mason.common mason.config namespaces ;

IN: mason.release.upload

: upload ( archive-name -- )
    upload-package? get [
        package-username get package-host get pick
        remote-archive-name
        [ upload-safely ]
        [ dup latest-archive-name symlink-remote ] 3bi
    ] [ drop ] if ;