steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.deploy.backend: add word for deleting cached staging images.

db4
John Benediktsson 2014-12-23 08:56:05 -08:00
parent c0dda5c7e9
commit 0b460c431b
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/tools/deploy/backend/backend.factor
View File

@ -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 )
[ [
[ [

6
basis/tools/deploy/deploy-tests.factor
View File

@ -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