Do a 'git reset; git clean' to revert the tree to a pristine state
parent
db3c4fe43c
commit
6b0b4bbd70
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue