converge: auto-commit at 2026-05-14 22:15:21 from zendo.brechtel

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)