Merge branch 'master' into assistant
This commit is contained in:
commit
cfccfc19e0
1 changed files with 4 additions and 2 deletions
|
@ -10,8 +10,10 @@ module Git.Merge where
|
||||||
import Common
|
import Common
|
||||||
import Git
|
import Git
|
||||||
import Git.Command
|
import Git.Command
|
||||||
|
import Git.Version
|
||||||
|
|
||||||
{- Avoids recent git's interactive merge. -}
|
{- Avoids recent git's interactive merge. -}
|
||||||
mergeNonInteractive :: Ref -> Repo -> IO Bool
|
mergeNonInteractive :: Ref -> Repo -> IO Bool
|
||||||
mergeNonInteractive branch = runBool "merge"
|
mergeNonInteractive branch
|
||||||
[Param "--no-edit", Param $ show branch]
|
| older "1.7.7.6" = runBool "merge" [Param $ show branch]
|
||||||
|
| otherwise = runBool "merge" [Param "--no-edit", Param $ show branch]
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue