From ce678b09166bd94a30dc143b6a97f3b45c81a970 Mon Sep 17 00:00:00 2001
From: nomennescio <nomennescio@factorcode.org>
Date: Sat, 4 May 2024 21:54:36 +0100
Subject: [PATCH] Use canonical way to get HEAD SHA1

More efficient code
---
 extra/mason/git/git.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index 362bc8dba7..41d385c625 100644
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -7,8 +7,7 @@ splitting ;
 IN: mason.git
 
 : git-id ( -- id )
-    { "git" "show" } process-lines
-    first split-words second ;
+    { "git" "rev-parse" "HEAD" } process-lines first ;
 
 <PRIVATE
 
-- 
2.34.1