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

Direct mode: Support filesystems like FAT which can change their inodes each time they are mounted.

Browse source
This commit is contained in:
Joey Hess 2013-02-19 16:26:07 -04:00
parent 0f4cc559a7
commit 624e34649f
7 changed files with 69 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Locations.hs
View file

@ -13,6 +13,8 @@ module Locations (
gitAnnexLocation,
gitAnnexMapping,
gitAnnexInodeCache,
gitAnnexInodeSentinal,
gitAnnexInodeSentinalCache,
annexLocations,
annexLocation,
gitAnnexDir,
@ -128,6 +130,12 @@ gitAnnexInodeCache key r = do
loc <- gitAnnexLocation key r
return $ loc ++ ".cache"
gitAnnexInodeSentinal :: Git.Repo -> FilePath
gitAnnexInodeSentinal r = gitAnnexDir r </> "sentinal"
gitAnnexInodeSentinalCache :: Git.Repo -> FilePath
gitAnnexInodeSentinalCache r = gitAnnexInodeSentinal r ++ ".cache"
{- The annex directory of a repository. -}
gitAnnexDir :: Git.Repo -> FilePath
gitAnnexDir r = addTrailingPathSeparator $ Git.localGitDir r </> annexDir