This commit is contained in:
Joey Hess 2011-01-27 17:58:30 -04:00
parent 167523f09d
commit 4f9336bb60
5 changed files with 6 additions and 6 deletions

View file

@ -93,7 +93,7 @@ gitAnnexUnusedLog r = gitAnnexDir r </> "unused"
{- Checks a symlink target to see if it appears to point to annexed content. -}
isLinkToAnnex :: FilePath -> Bool
isLinkToAnnex s = isInfixOf ("/" ++ objectDir) s
isLinkToAnnex s = ("/" ++ objectDir) `isInfixOf` s
{- Converts a key into a filename fragment.
-