Update Information.fs

fsprojects · Jan 8, 2024 · 8822caa · 8822caa
1 parent 82e38df
commit 8822caa
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/app/Fake.Tools.Git/Information.fs b/src/app/Fake.Tools.Git/Information.fs
@@ -80,7 +80,14 @@ module Information =
             match Environment.environVarOrNone "BUILD_SOURCEVERSION" with
             | None -> reraise ()
             | Some s -> s
-
+    /// <summary>
+    /// Returns the short SHA1 of the current <c>HEAD</c>
+    /// </summary>
+    ///
+    /// <param name="repositoryDir">The git repository.</param>
+    let getShortSHA1 repositoryDir =
+        let _, msg, _ = CommandHelper.runGitCommand repositoryDir "rev-parse --short HEAD"
+        msg |> String.separated ""
     /// <summary>
     /// Shows the git status
     /// </summary>