remove a few more isDirect tests

This commit is contained in:
Joey Hess 2019-08-28 11:53:10 -04:00
parent a648c22b9b
commit e804f48f82
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 5 additions and 8 deletions

View file

@ -55,7 +55,7 @@ lookupFileNotHidden = lookupFile' catkeyfile
lookupFile' :: (FilePath -> Annex (Maybe Key)) -> FilePath -> Annex (Maybe Key)
lookupFile' catkeyfile file = isAnnexLink file >>= \case
Just key -> return (Just key)
Nothing -> ifM (versionSupportsUnlockedPointers <||> isDirect)
Nothing -> ifM versionSupportsUnlockedPointers
( catkeyfile file
, return Nothing
)