Use canonical way to get HEAD SHA1

More efficient code

diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index 362bc8dba7c06aa4a10cbd2d8828c767fa93f190..41d385c625408de37563f0e0c5d84d9556b44dd2 100644 (file)
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -7,8 +7,7 @@ splitting ;
 IN: mason.git
 
 : git-id ( -- id )
 IN: mason.git
 
 : git-id ( -- id )

-    { "git" "show" } process-lines
-    first split-words second ;
+    { "git" "rev-parse" "HEAD" } process-lines first ;

 
 <PRIVATE
 
 
 <PRIVATE