From 29a984934d434608b70a0cf96d8274c8d464d260 Mon Sep 17 00:00:00 2001
From: James Brechtel <git@jamesbrechtel.com>
Date: Thu, 14 May 2026 22:15:21 -0400
Subject: [PATCH] converge: auto-commit at 2026-05-14 22:15:21 from
 zendo.brechtel

---
 src/Converge.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Converge.hs b/src/Converge.hs
index 3b22ba2..ffd1985 100644
--- a/src/Converge.hs
+++ b/src/Converge.hs
@@ -447,7 +447,9 @@ gitCommitAll logger repoPath = do
         then pure addResult
         else do
             hostname <- init <$> readProcess "hostname" [] ""
-            loggedGit logger repoPath ["commit", "-m", "converge: auto-commit from " <> hostname]
+            timestamp <- formatTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" <$> getCurrentTime
+            let msg = "converge: auto-commit at " <> timestamp <> " from " <> hostname
+            loggedGit logger repoPath ["commit", "-m", msg]
 
 -- | Pull from the configured remote, rebasing onto the tracked upstream branch.
 gitPull :: Logger -> RepoConfig -> IO (ExitCode, Text, Text)