use RawFilePath getSymbolicLinkStatus for speed

This commit is contained in:
Joey Hess 2019-12-06 15:37:12 -04:00
parent db13b16013
commit a0168cd9a2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 9 additions and 3 deletions

View file

@ -33,6 +33,7 @@ import Annex.CurrentBranch
import Annex.Content
import Annex.InodeSentinal
import qualified Database.Keys
import qualified Utility.RawFilePath as R
withFilesInGit :: (RawFilePath -> CommandSeek) -> [WorkTreeItem] -> CommandSeek
withFilesInGit a l = seekActions $ prepFiltered a $
@ -276,4 +277,4 @@ workTreeItems' (AllowHidden allowhidden) ps = do
| otherwise = return False
notSymlink :: RawFilePath -> IO Bool
notSymlink f = liftIO $ not . isSymbolicLink <$> getSymbolicLinkStatus (fromRawFilePath f)
notSymlink f = liftIO $ not . isSymbolicLink <$> R.getSymbolicLinkStatus f