diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-15 16:12:18 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-15 16:12:18 -0400 |
| commit | e892768b0e63a9b64ecd6edbdb1021227b082973 (patch) | |
| tree | 0cb09ecfc869e028182b59c21747da71c7033135 /Annex/Link.hs | |
| parent | 81b98efabf922521bde4117ddab4bb36bd617b31 (diff) | |
Windows: Fix v6 unlocked files to actually work.
Pointer files were not being treated as annex content, so "git annex get"
didn't replace them with the object.
Diffstat (limited to 'Annex/Link.hs')
| -rw-r--r-- | Annex/Link.hs | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Annex/Link.hs b/Annex/Link.hs index 7fd0098ef..4a3311af9 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -12,6 +12,8 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Annex.Link where import Annex.Common @@ -155,3 +157,18 @@ formatPointer k = isPointerFile :: FilePath -> IO (Maybe Key) isPointerFile f = catchDefaultIO Nothing $ parseLinkOrPointer <$> L.readFile f + +{- Checks a symlink target or pointer file first line to see if it + - appears to point to annexed content. + - + - We only look for paths inside the .git directory, and not at the .git + - directory itself, because GIT_DIR may cause a directory name other + - than .git to be used. + -} +isLinkToAnnex :: FilePath -> Bool +isLinkToAnnex s = (pathSeparator:objectDir) `isInfixOf` s +#ifdef mingw32_HOST_OS + -- '/' is still used inside pointer files on Windows, not the native + -- '\' + || ('/':objectDir) `isInfixOf` s +#endif |