52 lines
1.4 KiB
Haskell
52 lines
1.4 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2011-2019 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.Merge where
|
|
|
|
import Command
|
|
import qualified Annex.Branch
|
|
import qualified Git
|
|
import qualified Git.Branch
|
|
import Annex.CurrentBranch
|
|
import Command.Sync (prepMerge, mergeLocal, mergeConfig, merge, SyncOptions(..))
|
|
import Git.Types
|
|
|
|
cmd :: Command
|
|
cmd = command "merge" SectionMaintenance
|
|
"merge changes from remotes"
|
|
(paramOptional paramRef) (withParams seek)
|
|
|
|
seek :: CmdParams -> CommandSeek
|
|
seek [] = do
|
|
prepMerge
|
|
commandAction mergeAnnexBranch
|
|
commandAction mergeSyncedBranch
|
|
seek bs = do
|
|
prepMerge
|
|
forM_ bs (commandAction . mergeBranch . Git.Ref . encodeBS')
|
|
|
|
mergeAnnexBranch :: CommandStart
|
|
mergeAnnexBranch = starting "merge" ai si $ do
|
|
_ <- Annex.Branch.update
|
|
-- commit explicitly, in case no remote branches were merged
|
|
Annex.Branch.commit =<< Annex.Branch.commitMessage
|
|
next $ return True
|
|
where
|
|
ai = ActionItemOther (Just (fromRef Annex.Branch.name))
|
|
si = SeekInput []
|
|
|
|
mergeSyncedBranch :: CommandStart
|
|
mergeSyncedBranch = mergeLocal mergeConfig def =<< getCurrentBranch
|
|
|
|
mergeBranch :: Git.Ref -> CommandStart
|
|
mergeBranch r = starting "merge" ai si $ do
|
|
currbranch <- getCurrentBranch
|
|
let o = def { notOnlyAnnexOption = True }
|
|
next $ merge currbranch mergeConfig o Git.Branch.ManualCommit r
|
|
where
|
|
ai = ActionItemOther (Just (Git.fromRef r))
|
|
si = SeekInput []
|