mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix path separator

Browse source
This commit is contained in:
Joey Hess 2013-05-12 17:18:34 -05:00
parent 06551ad86b
commit a2f83b28f3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Locations.hs Normal file → Executable file
View file

@ -259,7 +259,7 @@ gitAnnexAssistantDefaultDir = "annex"
- than .git to be used.
-}
isLinkToAnnex :: FilePath -> Bool
isLinkToAnnex s = ('/':objectDir) `isInfixOf` s
isLinkToAnnex s = (pathSeparator:objectDir) `isInfixOf` s
{- Converts a key into a filename fragment without any directory.
-