diff --git a/Build/Version.hs b/Build/Version.hs
index c6a0132bd3..0d95dc7b26 100644
--- a/Build/Version.hs
+++ b/Build/Version.hs
@@ -36,7 +36,7 @@ getVersion = do
 		, catchDefaultIO changelogversion $ do
 			gitversion <- takeWhile (\c -> isAlphaNum c) <$> readProcess "sh"
 				[ "-c"
-				, "git log -n 1 --format=format:'%h'"
+				, "git log -n 1 --format=format:'%H'"
 				] ""
 			return $ if null gitversion
 				then changelogversion