diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-09 15:23:14 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 15:23:14 -0400 |
| commit | 87896574f32be5aa1636facc494faeab34cd0845 (patch) | |
| tree | e3fe7c3572007aaa29eddd1f6ea2aebc07e40c3c /CmdLine/GitAnnex.hs | |
| parent | 80603339ea4e8b93ef456e706ca8c4efeef341f8 (diff) | |
converted copy and move
Got a little tricky..
Diffstat (limited to 'CmdLine/GitAnnex.hs')
| -rw-r--r-- | CmdLine/GitAnnex.hs | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/CmdLine/GitAnnex.hs b/CmdLine/GitAnnex.hs index 5e37a885a..fc323a49b 100644 --- a/CmdLine/GitAnnex.hs +++ b/CmdLine/GitAnnex.hs @@ -15,15 +15,14 @@ import Command import Utility.Env import Annex.Ssh +import qualified Command.Help import qualified Command.Add import qualified Command.Unannex -import qualified Command.Fsck -{- -import qualified Command.Help import qualified Command.Drop import qualified Command.Move import qualified Command.Copy import qualified Command.Get +import qualified Command.Fsck import qualified Command.LookupKey import qualified Command.ContentLocation import qualified Command.ExamineKey @@ -117,18 +116,16 @@ import qualified Command.TestRemote #ifdef WITH_EKG import System.Remote.Monitoring #endif --} cmds :: [Command] cmds = - [ Command.Add.cmd - , Command.Fsck.cmd -{- - , Command.Help.cmd + [ 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 @@ -221,7 +218,6 @@ cmds = , Command.FuzzTest.cmd , Command.TestRemote.cmd #endif --} ] run :: [String] -> IO () |