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/Locations.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/Locations.hs')
| -rw-r--r-- | Annex/Locations.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/Annex/Locations.hs b/Annex/Locations.hs index 322165aee..4c2816fa9 100644 --- a/Annex/Locations.hs +++ b/Annex/Locations.hs @@ -63,7 +63,6 @@ module Annex.Locations ( gitAnnexSshDir, gitAnnexRemotesDir, gitAnnexAssistantDefaultDir, - isLinkToAnnex, HashLevels(..), hashDirMixed, hashDirLower, @@ -386,15 +385,6 @@ gitAnnexRemotesDir r = addTrailingPathSeparator $ gitAnnexDir r </> "remotes" gitAnnexAssistantDefaultDir :: FilePath gitAnnexAssistantDefaultDir = "annex" -{- Checks a symlink target to see if it appears to point to annexed content. - - - - We only look at 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 - {- Sanitizes a String that will be used as part of a Key's keyName, - dealing with characters that cause problems on substandard filesystems. - |