add merge subcommand
This commit is contained in:
parent
80302d0b46
commit
ad3770e0b2
5 changed files with 42 additions and 5 deletions
29
Command/Merge.hs
Normal file
29
Command/Merge.hs
Normal file
|
@ -0,0 +1,29 @@
|
||||||
|
{- git-annex command
|
||||||
|
-
|
||||||
|
- Copyright 2011 Joey Hess <joey@kitenet.net>
|
||||||
|
-
|
||||||
|
- Licensed under the GNU GPL version 3 or higher.
|
||||||
|
-}
|
||||||
|
|
||||||
|
module Command.Merge where
|
||||||
|
|
||||||
|
import Command
|
||||||
|
import qualified Branch
|
||||||
|
import Messages
|
||||||
|
|
||||||
|
command :: [Command]
|
||||||
|
command = [repoCommand "merge" paramNothing seek
|
||||||
|
"auto-merges remote changes into the git-annex branch"]
|
||||||
|
|
||||||
|
seek :: [CommandSeek]
|
||||||
|
seek = [withNothing start]
|
||||||
|
|
||||||
|
start :: CommandStartNothing
|
||||||
|
start = do
|
||||||
|
showStart "merge" "."
|
||||||
|
next perform
|
||||||
|
|
||||||
|
perform :: CommandPerform
|
||||||
|
perform = do
|
||||||
|
Branch.update
|
||||||
|
next $ return True
|
|
@ -47,7 +47,7 @@ sizeList :: [a] -> SizeList a
|
||||||
sizeList l = (l, genericLength l)
|
sizeList l = (l, genericLength l)
|
||||||
|
|
||||||
command :: [Command]
|
command :: [Command]
|
||||||
command = [repoCommand "status" (paramNothing) seek
|
command = [repoCommand "status" paramNothing seek
|
||||||
"shows status information about the annex"]
|
"shows status information about the annex"]
|
||||||
|
|
||||||
seek :: [CommandSeek]
|
seek :: [CommandSeek]
|
||||||
|
|
|
@ -39,6 +39,7 @@ import qualified Command.Lock
|
||||||
import qualified Command.PreCommit
|
import qualified Command.PreCommit
|
||||||
import qualified Command.Find
|
import qualified Command.Find
|
||||||
import qualified Command.Whereis
|
import qualified Command.Whereis
|
||||||
|
import qualified Command.Merge
|
||||||
import qualified Command.Status
|
import qualified Command.Status
|
||||||
import qualified Command.Migrate
|
import qualified Command.Migrate
|
||||||
import qualified Command.Uninit
|
import qualified Command.Uninit
|
||||||
|
@ -76,6 +77,7 @@ cmds = concat
|
||||||
, Command.DropUnused.command
|
, Command.DropUnused.command
|
||||||
, Command.Find.command
|
, Command.Find.command
|
||||||
, Command.Whereis.command
|
, Command.Whereis.command
|
||||||
|
, Command.Merge.command
|
||||||
, Command.Status.command
|
, Command.Status.command
|
||||||
, Command.Migrate.command
|
, Command.Migrate.command
|
||||||
, Command.Map.command
|
, Command.Map.command
|
||||||
|
|
3
debian/changelog
vendored
3
debian/changelog
vendored
|
@ -1,7 +1,8 @@
|
||||||
git-annex (0.20110611) UNRELEASED; urgency=low
|
git-annex (0.20110611) UNRELEASED; urgency=low
|
||||||
|
|
||||||
* New repository format, annex.version=3. Use `git annex upgrade` to migrate.
|
* New repository format, annex.version=3. Use `git annex upgrade` to migrate.
|
||||||
|
* git-annex now stores its logs in a git-annex branch.
|
||||||
|
* merge: New subcommand. Auto-merges the new git-annex branch.
|
||||||
* Improved handling of bare git repos with annexes. Many more commands will
|
* Improved handling of bare git repos with annexes. Many more commands will
|
||||||
work in them.
|
work in them.
|
||||||
* rsync is now used when copying files from repos on other filesystems.
|
* rsync is now used when copying files from repos on other filesystems.
|
||||||
|
|
|
@ -182,6 +182,13 @@ Many git-annex commands will stage changes for later `git commit` by you.
|
||||||
Displays a list of repositories known to contain the content of the
|
Displays a list of repositories known to contain the content of the
|
||||||
specified file or files.
|
specified file or files.
|
||||||
|
|
||||||
|
* merge
|
||||||
|
|
||||||
|
Automatically merges any changes from remotes into the git-annex branch.
|
||||||
|
While git-annex mostly handles keeping the git-annex branch merged
|
||||||
|
automatically, if you find you are unable to push the git-annex branch
|
||||||
|
due non-fast-forward, this will fix it.
|
||||||
|
|
||||||
* status
|
* status
|
||||||
|
|
||||||
Displays some statistics and other information, including how much data
|
Displays some statistics and other information, including how much data
|
||||||
|
@ -301,9 +308,7 @@ Many git-annex commands will stage changes for later `git commit` by you.
|
||||||
|
|
||||||
* upgrade
|
* upgrade
|
||||||
|
|
||||||
Upgrades the repository to current layout. Upgrades are done automatically
|
Upgrades the repository to current layout.
|
||||||
whenever a newer git annex encounters an old repository; this command
|
|
||||||
allows explcitly starting an upgrade.
|
|
||||||
|
|
||||||
* version
|
* version
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue