Include hostname in auto-commit messages

src/Converge.hs

@@ -41,7 +41,7 @@ import System.Exit (ExitCode (..))
 import System.FSNotify
 import System.FilePath (isAbsolute, splitDirectories, (</>))
 import System.IO (hPutStrLn, stderr)
-import System.Process (readProcessWithExitCode, spawnProcess)
+import System.Process (readProcess, readProcessWithExitCode, spawnProcess)
 
 -- | Configuration for a single repository to watch.
 data RepoConfig = RepoConfig
@@ -268,7 +268,8 @@ gitCommitAll logger repoPath = do
     (_, _, stageErr) <- runGitIn repoPath ["add", "-A"]
     unless (T.null stageErr) $
         logInfo logger ("git add stderr: " <> stageErr)
-    runGitIn repoPath ["commit", "-m", "converge: auto-commit"]
+    hostname <- init <$> readProcess "hostname" [] ""
+    runGitIn repoPath ["commit", "-m", "converge: auto-commit from " <> hostname]
 
 -- | Pull from the configured remote and branch.
 gitPull :: RepoConfig -> IO (ExitCode, Text, Text)