better fsck file handling

1 files changed, 5 insertions, 11 deletions

diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index 85a26a89b..5b731a696 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -16,20 +16,14 @@ import Messages
 import qualified Command.FsckFile
 
 seek :: [SubCmdSeek]
-seek = [withString start, withAll withFilesInGit Command.FsckFile.start]
+seek = [withNothing start, withAll withFilesInGit Command.FsckFile.start]
 
 {- Checks the whole annex for problems, only if specific files were not
  - specified. -}
-start :: SubCmdStartString
-start whatspecified = do
-	if (null whatspecified)
-		then do
-			showStart "fsck" ""
-			return $ Just perform
-		else do
-			showStart "fsck" ""
-			showNote "only checking specified files"
-			return $ Just $ return $ Just $ return True
+start :: SubCmdStartNothing
+start = do
+	showStart "fsck" ""
+	return $ Just perform
 
 perform :: SubCmdPerform
 perform = do