mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 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
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. - than .git to be used.
-} -}
isLinkToAnnex :: FilePath -> Bool isLinkToAnnex :: FilePath -> Bool
isLinkToAnnex s = ('/':objectDir) `isInfixOf` s isLinkToAnnex s = (pathSeparator:objectDir) `isInfixOf` s
{- Converts a key into a filename fragment without any directory. {- Converts a key into a filename fragment without any directory.
- -