upload-new-images ( -- )

Vocabulary

bootstrap.image.upload

Inputs

None

Outputs

None

Definition

USING: bootstrap.image io io.directories ;

IN: bootstrap.image.upload

: upload-new-images ( -- )
    [
        make-images "Computing checksums..." print
        flush compute-checksums "Creating remote directory..."
        print
        flush create-remote-upload-directory
        "Uploading images..." print
        flush upload-images "Uploading build images..." print
        flush upload-build-images
    ] with-resource-directory ;