optimize pre-commit in direct mode

Command/PreCommit.hs

@@ -11,7 +11,6 @@ import Common.Annex
 import Command
 import qualified Command.Add
 import qualified Command.Fix
-import Config
 
 def :: [Command]
 def = [command "pre-commit" paramPaths seek "run by git pre-commit hook"]
@@ -20,12 +19,9 @@ def = [command "pre-commit" paramPaths seek "run by git pre-commit hook"]
  - And, it needs to inject unlocked files into the annex. -}
 seek :: [CommandSeek]
 seek =
-	[ withFilesToBeCommitted $ whenNotDirect $ whenAnnexed $ Command.Fix.start
+	[ whenNotDirect $ withFilesToBeCommitted $ whenAnnexed $ Command.Fix.start
 	, withFilesUnlockedToBeCommitted start]
 
-whenNotDirect :: (FilePath -> Annex (Maybe CommandPerform)) -> FilePath -> Annex (Maybe CommandPerform)
-whenNotDirect a f = ifM isDirect ( stop , a f )
-
 start :: FilePath -> CommandStart
 start file = next $ perform file
 

Seek.hs

@@ -20,6 +20,7 @@ import qualified Git.Command
 import qualified Git.LsFiles as LsFiles
 import qualified Limit
 import qualified Option
+import Config
 
 seekHelper :: ([FilePath] -> Git.Repo -> IO ([FilePath], IO Bool)) -> [FilePath] -> Annex [FilePath]
 seekHelper a params = do
@@ -123,3 +124,6 @@ prepFiltered a fs = do
 
 notSymlink :: FilePath -> IO Bool
 notSymlink f = liftIO $ not . isSymbolicLink <$> getSymbolicLinkStatus f
+
+whenNotDirect :: CommandSeek -> CommandSeek
+whenNotDirect a params = ifM isDirect ( return [] , a params )