Fix display of warning message when encountering a file that uses an unsupported backend.

This commit is contained in:
Joey Hess 2012-05-31 21:03:24 -04:00
parent d4a95faeb2
commit 6fd83851c1
3 changed files with 9 additions and 5 deletions

View file

@ -155,7 +155,9 @@ gitAnnexRemotesDir r = addTrailingPathSeparator $ gitAnnexDir r </> "remotes"
{- Checks a symlink target to see if it appears to point to annexed content. -}
isLinkToAnnex :: FilePath -> Bool
isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s
isLinkToAnnex s = ("/" ++ d) `isInfixOf` s || d `isPrefixOf` s
where
d = ".git" </> objectDir
{- Converts a key into a filename fragment without any directory.
-