@@ -95,10 +95,11 @@ deployPush deployPath = do
9595 deployAndSwitch res sshAgentEnv `finally` callProcess' (Just sshAgentEnv) "ssh-agent" ["-k"]
9696 isClean <- liftIO $ checkGitCleanStatus deployPath
9797 when (not isClean) $ do
98− callProcessAndLogOutput (Debug, Error) $ proc "git"
99− ["-C", deployPath, "add", "--update"]
100− callProcessAndLogOutput (Debug, Error) $ proc "git"
101− ["-C", deployPath, "commit", "-m", "New deployment"]
98+ withSpinner "Commiting changes to Git" $ do
99+ callProcessAndLogOutput (Debug, Error) $ proc "git"
100+ ["-C", deployPath, "add", "--update"]
101+ callProcessAndLogOutput (Debug, Error) $ proc "git"
102+ ["-C", deployPath, "commit", "-m", "New deployment"]
102103 where
103104 callProcess' e cmd args = do
104105 let p = (proc cmd args) { delegate_ctlc = True, env = e }