mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add fsck subcommand (stub)

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Command.hs
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