delete-staging-images ( -- )

Vocabulary

tools.deploy.backend

Inputs

None

Outputs

None

Definition

USING: bootstrap.image io.directories io.files.temp kernel
sequences ;

IN: tools.deploy.backend

: delete-staging-images ( -- )
    cache-directory [
        [ "staging." head? ] filter
        "." my-arch-name ".image" 3append [ tail? ] curry filter
        [ delete-file ] each
    ] with-directory-files ;