diff options
| -rw-r--r-- | Annex/Link.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 72c84c0c8..eeae16f15 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -36,10 +36,13 @@ isAnnexLink file = maybe Nothing (fileKey . takeFileName) <$> getAnnexLinkTarget - content. -} getAnnexLinkTarget :: FilePath -> Annex (Maybe LinkTarget) -getAnnexLinkTarget file = - check readSymbolicLink $ +getAnnexLinkTarget file = ifM (coreSymlinks <$> Annex.getGitConfig) + ( check readSymbolicLink $ check readfilestart $ return Nothing + , check readSymbolicLink $ + return Nothing + ) where check getlinktarget fallback = do v <- liftIO $ catchMaybeIO $ getlinktarget file |