summaryrefslogtreecommitdiff
path: root/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-13 16:03:25 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-13 16:03:25 -0400
commit498c8e8544f04841d3221ce7a47b2409858e9f38 (patch)
treefb01cd7884ba68d6522c7dc3ad13821b555892a5 /Command.hs
parentd9d79a7980b5c9a84823c0cf38750a0189d03b0a (diff)
fsck: avoid global checks if files specified
Diffstat (limited to 'Command.hs')
-rw-r--r--Command.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Command.hs b/Command.hs
index 4180155fa..3f68cf661 100644
--- a/Command.hs
+++ b/Command.hs
@@ -126,8 +126,8 @@ backendPairs :: SubCmdSeekBackendFiles
backendPairs a files = do
pairs <- Backend.chooseBackends files
return $ map a pairs
-withDescription :: SubCmdSeekStrings
-withDescription a params = return [a $ unwords params]
+withString :: SubCmdSeekStrings
+withString a params = return [a $ unwords params]
withFilesToBeCommitted :: SubCmdSeekStrings
withFilesToBeCommitted a params = do
repo <- Annex.gitRepo
@@ -143,8 +143,6 @@ withKeys :: SubCmdSeekStrings
withKeys a params = return $ map a params
withTempFile :: SubCmdSeekStrings
withTempFile a params = return $ map a params
-withNothing :: SubCmdSeekNothing
-withNothing a _ = return [a]
{- Default to acting on all files matching the seek action if
- none are specified. -}