diff options
author | Joey Hess <id@joeyh.name> | 2013-05-12 17:18:34 -0500 |
---|---|---|
committer | Joey Hess <id@joeyh.name> | 2013-05-12 17:18:34 -0500 |
commit | ac86f7dbae96c5b813147bf8de5fe40df002671e (patch) | |
tree | e00802adcbb77a855934bd421033d5ddd0e60e92 | |
parent | f300a3fafc6fcb30e943e20c61abfe0b0f2271e9 (diff) |
fix path separator
-rwxr-xr-x[-rw-r--r--] | Locations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Locations.hs b/Locations.hs index cb98b840c..ba1e74150 100644..100755 --- a/Locations.hs +++ b/Locations.hs @@ -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. - |