make-staging-image ( profile -- )

Vocabulary

tools.deploy.backend

Inputs

profile

an object

Outputs

None

Definition

USING: io.files kernel sequences system ;

IN: tools.deploy.backend

: make-staging-image ( profile -- )
    { } [ suffix ] accumulate*
    [ staging-image-name file-exists? ] reject
    [ staging-command-line ] map
    [ vm-path swap run-factor ] each ;