add fsck subcommand (stub)

This commit is contained in:
Joey Hess 2010-11-06 17:06:19 -04:00
parent 6b80356f6d
commit 016b6a59e7
5 changed files with 81 additions and 38 deletions

View file

@ -50,7 +50,7 @@ data SubCommand = SubCommand {
prepSubCmd :: SubCommand -> AnnexState -> [String] -> IO [Annex Bool]
prepSubCmd SubCommand { subcmdseek = seek } state params = do
list <- Annex.eval state $ seek params
return $ map (\a -> doSubCmd a) list
return $ map doSubCmd list
{- Runs a subcommand through the start, perform and cleanup stages -}
doSubCmd :: SubCmdStart -> SubCmdCleanup