find: New subcommand.

This commit is contained in:
Joey Hess 2010-11-14 12:35:05 -04:00
parent 54d0f73e67
commit a5c4dd9743
5 changed files with 47 additions and 0 deletions

View file

@ -28,6 +28,7 @@ import qualified Command.Fsck
import qualified Command.Unlock
import qualified Command.Lock
import qualified Command.PreCommit
import qualified Command.Find
subCmds :: [SubCommand]
subCmds =
@ -61,6 +62,8 @@ subCmds =
"fix up symlinks to point to annexed content"
, SubCommand "fsck" maybepath Command.Fsck.seek
"check for problems"
, SubCommand "find" maybepath Command.Find.seek
"lists available files"
]
where
path = "PATH ..."