upload-images ( -- )

Vocabulary

bootstrap.image.upload

Inputs

None

Outputs

None

Definition

USING: io.launcher kernel make namespaces sequences ;

IN: bootstrap.image.upload

: upload-images ( -- )
    git-branch-destinations [
        [
            [
                \ scp-name get-global scp-name or , "-4" ,
                boot-image-names % checksums-path ,
            ] { } make
        ] dip suffix try-process
    ] each ;