git-branch-destinations ( -- dests )

Vocabulary

bootstrap.image.upload

Inputs

None

Outputs

dests

an object

Definition

USING: arrays kernel namespaces sequences ;

IN: bootstrap.image.upload

: git-branch-destinations ( -- dests )
    build-images-destination get
    "[e-mail]:downloads.factorcode.org/ima..."
    or factor-git-branch dup { "master" "main" } member?
    [ drop { "master" "main" } ] [ 1array ] if
    [ "/" 3append ] with map ;