diff --git a/src/TiedoteMD/Git.hs b/src/TiedoteMD/Git.hs index a08e9b4..f4231d3 100644 --- a/src/TiedoteMD/Git.hs +++ b/src/TiedoteMD/Git.hs @@ -21,7 +21,7 @@ import qualified Data.ByteString.Lazy as B gitPull :: FilePath -> IO () gitPull repo = do - (exit, err, _) <- runGitCommand repo "fetch" ["--force"] + (exit, err, _) <- runGitCommand repo "fetch" [] unless (exit == ExitSuccess) $ throwIO $ UnknownError $ "git-fetch failed: " <> err (exit', err', _) <- runGitCommand repo "reset" ["--hard","FETCH_HEAD"] unless (exit' == ExitSuccess) $ throwIO $ UnknownError $ "git-reset failed: " <> err'