avoid --no-edit with older git versions

This commit is contained in:
Joey Hess 2012-07-17 14:50:37 -04:00
parent f5f8879471
commit 4db09814e4

View file

@ -10,8 +10,10 @@ module Git.Merge where
import Common
import Git
import Git.Command
import Git.Version
{- Avoids recent git's interactive merge. -}
mergeNonInteractive :: Ref -> Repo -> IO Bool
mergeNonInteractive branch = runBool "merge"
[Param "--no-edit", Param $ show branch]
mergeNonInteractive branch
| older 1.7.7.6 = runBool "merge" [Param $ show branch]
| otherwise = runBool "merge" [Param "--no-edit", Param $ show branch]