add fsck subcommand (stub)
This commit is contained in:
parent
6b80356f6d
commit
016b6a59e7
5 changed files with 81 additions and 38 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue