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)