diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-06 17:06:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-06 17:06:59 -0400 |
| commit | 016b6a59e7187ead0ed630699c85d0fec729a30d (patch) | |
| tree | 15c2fc2a681bde535758948b9f9460b5a84b21d6 /Command.hs | |
| parent | 6b80356f6de05efef1f14fd2af9835cf5abe69a0 (diff) | |
add fsck subcommand (stub)
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs index d557651aa..a0e3280d6 100644 --- a/Command.hs +++ b/Command.hs @@ -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 |