tools.deploy.backend: add word for deleting cached staging images.
parent
c0dda5c7e9
commit
0b460c431b
|
@ -65,6 +65,13 @@ ERROR: can't-deploy-library-file library ;
|
||||||
"-" join "." my-arch 3append
|
"-" join "." my-arch 3append
|
||||||
"staging." ".image" surround cache-file ;
|
"staging." ".image" surround cache-file ;
|
||||||
|
|
||||||
|
: delete-staging-images ( -- )
|
||||||
|
cache-directory [
|
||||||
|
[ "staging." head? ] filter
|
||||||
|
"." my-arch ".image" 3append [ tail? ] curry filter
|
||||||
|
[ delete-file ] each
|
||||||
|
] with-directory-files ;
|
||||||
|
|
||||||
: staging-command-line ( profile -- flags )
|
: staging-command-line ( profile -- flags )
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
|
|
|
@ -10,11 +10,7 @@ IN: tools.deploy.tests
|
||||||
! Delete all cached staging images in case syntax or
|
! Delete all cached staging images in case syntax or
|
||||||
! other core vocabularies have changed and staging
|
! other core vocabularies have changed and staging
|
||||||
! images are stale.
|
! images are stale.
|
||||||
cache-directory [
|
delete-staging-images
|
||||||
[ "staging." head? ] filter
|
|
||||||
my-arch ".image" append [ tail? ] curry filter
|
|
||||||
[ delete-file ] each
|
|
||||||
] with-directory-files
|
|
||||||
|
|
||||||
[ "nosuchvocab" deploy ] [ no-vocab? ] must-fail-with
|
[ "nosuchvocab" deploy ] [ no-vocab? ] must-fail-with
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue