Do a 'git reset; git clean' to revert the tree to a pristine state

db4
Doug Coleman 2010-06-22 14:40:15 -05:00
parent db3c4fe43c
commit 6b0b4bbd70
2 changed files with 10 additions and 9 deletions

View File

@ -5,12 +5,10 @@ io.directories io.launcher kernel mason.common mason.platform ;
IN: mason.updates
: git-reset-cmd ( -- cmd )
{
"git"
"reset"
"--hard"
"HEAD"
} ;
{ "git" "reset" "--hard" "HEAD" } ;
: git-clean-cmd ( -- cmd )
{ "git" "clean" "-f" "-d" "-x" } ;
: git-pull-cmd ( -- cmd )
{
@ -21,9 +19,13 @@ IN: mason.updates
"master"
} ;
: updates-available? ( -- ? )
: pristine-git ( -- )
".git/index" delete-file
git-reset-cmd short-running-process
git-clean-cmd short-running-process ;
: updates-available? ( -- ? )
pristine-git
git-id
git-pull-cmd short-running-process
git-id

View File

@ -35,11 +35,10 @@ IN: mason.version.source
: make-source-release ( version git-id -- path )
"Creating source release..." print flush
unique-directory
[
clone-factor prepare-source (make-source-release)
"Package created: " write absolute-path dup print
] with-directory ;
] with-unique-directory ;
: upload-source-release ( package version -- )
"Uploading source release..." print flush