diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-15 16:35:06 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-15 16:35:06 -0400 |
| commit | 9dc43d25995b085745c16cc31ad11106a74a9973 (patch) | |
| tree | d0a56e33033611ab6b6803549813ec31c9b46290 /CmdLine.hs | |
| parent | c305fb2bf318e72ea4f905a38733d93e9a81cc1d (diff) | |
unused: New subcommand, finds unused data (the global part of fsck).
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index caf727946..cc163fff5 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -25,6 +25,7 @@ import qualified Command.SetKey import qualified Command.Fix import qualified Command.Init import qualified Command.Fsck +import qualified Command.Unused import qualified Command.Unlock import qualified Command.Lock import qualified Command.PreCommit @@ -62,6 +63,8 @@ subCmds = "fix up symlinks to point to annexed content" , SubCommand "fsck" maybepath Command.Fsck.seek "check for problems" + , SubCommand "unused" nothing Command.Unused.seek + "look for unused file content" , SubCommand "find" maybepath Command.Find.seek "lists available files" ] @@ -70,6 +73,7 @@ subCmds = maybepath = "[PATH ...]" key = "KEY ..." desc = "DESCRIPTION" + nothing = "" -- Each dashed command-line option results in generation of an action -- in the Annex monad that performs the necessary setting. |