From 23686cc63d38faf7fb4d66ece8cbeb5214b07e5f Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 13 Jan 2011 23:36:58 -0400
Subject: clarify default values when no path is specified

Much of the code to handle this was unnecessary, as git ls-files is used,
and defaults to returning all files of the desired type.
---
 Command/Find.hs   | 2 +-
 Command/Fsck.hs   | 2 +-
 Command/Uninit.hs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'Command')

diff --git a/Command/Find.hs b/Command/Find.hs
index 7cb781ce8..6d94ea3f4 100644
--- a/Command/Find.hs
+++ b/Command/Find.hs
@@ -18,7 +18,7 @@ command = [Command "find" (paramOptional $ paramRepeating paramPath) seek
 	"lists available files"]
 
 seek :: [CommandSeek]
-seek = [withDefault "." withFilesInGit start]
+seek = [withFilesInGit start]
 
 {- Output a list of files. -}
 start :: CommandStartString
diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index d870bd419..662c281c2 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -18,7 +18,7 @@ command = [Command "fsck" (paramOptional $ paramRepeating paramPath) seek
 	"check for problems"]
 
 seek :: [CommandSeek]
-seek = [withAll (withAttrFilesInGit "annex.numcopies") start]
+seek = [withAttrFilesInGit "annex.numcopies" start]
 
 {- Checks a file's backend data for problems. -}
 start :: CommandStartAttrFile
diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 1a4e9b0d7..93465df37 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -25,7 +25,7 @@ command = [Command "uninit" paramPath seek
         "de-initialize git-annex and clean out repository"]
 
 seek :: [CommandSeek]
-seek = [withAll withFilesInGit Command.Unannex.start, withNothing start]
+seek = [withFilesInGit Command.Unannex.start, withNothing start]
 
 start :: CommandStartNothing
 start = do
-- 
cgit v1.2.3