diff options
Diffstat (limited to 'CmdLine/GitAnnex.hs')
| -rw-r--r-- | CmdLine/GitAnnex.hs | 104 |
1 files changed, 52 insertions, 52 deletions
diff --git a/CmdLine/GitAnnex.hs b/CmdLine/GitAnnex.hs index 354f451e7..68a9e27ca 100644 --- a/CmdLine/GitAnnex.hs +++ b/CmdLine/GitAnnex.hs @@ -15,15 +15,17 @@ import Command import Utility.Env import Annex.Ssh +import qualified Command.Help import qualified Command.Add import qualified Command.Unannex import qualified Command.Drop import qualified Command.Move import qualified Command.Copy import qualified Command.Get -import qualified Command.LookupKey -import qualified Command.ContentLocation -import qualified Command.ExamineKey +import qualified Command.Fsck +--import qualified Command.LookupKey +--import qualified Command.ContentLocation +--import qualified Command.ExamineKey import qualified Command.FromKey import qualified Command.RegisterUrl import qualified Command.SetKey @@ -34,7 +36,7 @@ import qualified Command.SetPresentKey import qualified Command.ReadPresentKey import qualified Command.CheckPresentKey import qualified Command.ReKey -import qualified Command.MetaData +--import qualified Command.MetaData import qualified Command.View import qualified Command.VAdd import qualified Command.VFilter @@ -46,7 +48,6 @@ import qualified Command.Init import qualified Command.Describe import qualified Command.InitRemote import qualified Command.EnableRemote -import qualified Command.Fsck import qualified Command.Expire import qualified Command.Repair import qualified Command.Unused @@ -56,14 +57,14 @@ import qualified Command.Unlock import qualified Command.Lock import qualified Command.PreCommit import qualified Command.Find -import qualified Command.FindRef +--import qualified Command.FindRef import qualified Command.Whereis -import qualified Command.List -import qualified Command.Log +--import qualified Command.List +--import qualified Command.Log import qualified Command.Merge import qualified Command.ResolveMerge -import qualified Command.Info -import qualified Command.Status +--import qualified Command.Info +--import qualified Command.Status import qualified Command.Migrate import qualified Command.Uninit import qualified Command.Reinit @@ -71,37 +72,36 @@ import qualified Command.NumCopies import qualified Command.Trust import qualified Command.Untrust import qualified Command.Semitrust -import qualified Command.Dead +--import qualified Command.Dead import qualified Command.Group import qualified Command.Wanted import qualified Command.GroupWanted import qualified Command.Required import qualified Command.Schedule import qualified Command.Ungroup -import qualified Command.Vicfg +--import qualified Command.Vicfg import qualified Command.Sync -import qualified Command.Mirror -import qualified Command.AddUrl +--import qualified Command.Mirror +--import qualified Command.AddUrl #ifdef WITH_FEED -import qualified Command.ImportFeed +--import qualified Command.ImportFeed #endif import qualified Command.RmUrl -import qualified Command.Import +--import qualified Command.Import import qualified Command.Map import qualified Command.Direct import qualified Command.Indirect import qualified Command.Upgrade -import qualified Command.Forget +--import qualified Command.Forget import qualified Command.Proxy import qualified Command.DiffDriver -import qualified Command.Undo +--import qualified Command.Undo import qualified Command.Version -import qualified Command.Help #ifdef WITH_ASSISTANT -import qualified Command.Watch -import qualified Command.Assistant +--import qualified Command.Watch +--import qualified Command.Assistant #ifdef WITH_WEBAPP -import qualified Command.WebApp +--import qualified Command.WebApp #endif #ifdef WITH_XMPP import qualified Command.XMPPGit @@ -111,29 +111,32 @@ import qualified Command.RemoteDaemon import qualified Command.Test #ifdef WITH_TESTSUITE import qualified Command.FuzzTest -import qualified Command.TestRemote +--import qualified Command.TestRemote #endif #ifdef WITH_EKG import System.Remote.Monitoring #endif cmds :: [Command] -cmds = concat - [ Command.Add.cmd +cmds = + [ Command.Help.cmd + , Command.Add.cmd , Command.Get.cmd , Command.Drop.cmd , Command.Move.cmd , Command.Copy.cmd + , Command.Fsck.cmd , Command.Unlock.cmd + , Command.Unlock.editcmd , Command.Lock.cmd , Command.Sync.cmd - , Command.Mirror.cmd - , Command.AddUrl.cmd +-- , Command.Mirror.cmd +-- , Command.AddUrl.cmd #ifdef WITH_FEED - , Command.ImportFeed.cmd +-- , Command.ImportFeed.cmd #endif , Command.RmUrl.cmd - , Command.Import.cmd +-- , Command.Import.cmd , Command.Init.cmd , Command.Describe.cmd , Command.InitRemote.cmd @@ -147,17 +150,17 @@ cmds = concat , Command.Trust.cmd , Command.Untrust.cmd , Command.Semitrust.cmd - , Command.Dead.cmd +-- , Command.Dead.cmd , Command.Group.cmd , Command.Wanted.cmd , Command.GroupWanted.cmd , Command.Required.cmd , Command.Schedule.cmd , Command.Ungroup.cmd - , Command.Vicfg.cmd - , Command.LookupKey.cmd - , Command.ContentLocation.cmd - , Command.ExamineKey.cmd +-- , Command.Vicfg.cmd +-- , Command.LookupKey.cmd +-- , Command.ContentLocation.cmd +-- , Command.ExamineKey.cmd , Command.FromKey.cmd , Command.RegisterUrl.cmd , Command.SetKey.cmd @@ -168,44 +171,42 @@ cmds = concat , Command.ReadPresentKey.cmd , Command.CheckPresentKey.cmd , Command.ReKey.cmd - , Command.MetaData.cmd +-- , Command.MetaData.cmd , Command.View.cmd , Command.VAdd.cmd , Command.VFilter.cmd , Command.VPop.cmd , Command.VCycle.cmd , Command.Fix.cmd - , Command.Fsck.cmd , Command.Expire.cmd , Command.Repair.cmd , Command.Unused.cmd , Command.DropUnused.cmd , Command.AddUnused.cmd , Command.Find.cmd - , Command.FindRef.cmd +-- , Command.FindRef.cmd , Command.Whereis.cmd - , Command.List.cmd - , Command.Log.cmd +-- , Command.List.cmd +-- , Command.Log.cmd , Command.Merge.cmd , Command.ResolveMerge.cmd - , Command.Info.cmd - , Command.Status.cmd +-- , Command.Info.cmd +-- , Command.Status.cmd , Command.Migrate.cmd , Command.Map.cmd , Command.Direct.cmd , Command.Indirect.cmd , Command.Upgrade.cmd - , Command.Forget.cmd +-- , Command.Forget.cmd , Command.Proxy.cmd , Command.DiffDriver.cmd - , Command.Undo.cmd +-- , Command.Undo.cmd , Command.Version.cmd - , Command.Help.cmd #ifdef WITH_ASSISTANT - , Command.Watch.cmd - , Command.Assistant.cmd +-- , Command.Watch.cmd +-- , Command.Assistant.cmd #ifdef WITH_WEBAPP - , Command.WebApp.cmd +-- , Command.WebApp.cmd #endif #ifdef WITH_XMPP , Command.XMPPGit.cmd @@ -215,13 +216,10 @@ cmds = concat , Command.Test.cmd #ifdef WITH_TESTSUITE , Command.FuzzTest.cmd - , Command.TestRemote.cmd +-- , Command.TestRemote.cmd #endif ] -header :: String -header = "git-annex command [option ...]" - run :: [String] -> IO () run args = do #ifdef WITH_EKG @@ -229,7 +227,9 @@ run args = do #endif go envmodes where - go [] = dispatch True args cmds gitAnnexOptions [] header Git.CurrentRepo.get + go [] = dispatch True args cmds gitAnnexGlobalOptions [] Git.CurrentRepo.get + "git-annex" + "manage files with git, without checking their contents in" go ((v, a):rest) = maybe (go rest) a =<< getEnv v envmodes = [ (sshOptionsEnv, runSshOptions args) |