diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-02-19 16:26:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-02-19 17:31:03 -0400 |
| commit | 490211a7f9cf9080bc913a481d8e11865931e46b (patch) | |
| tree | 71fe44cb34462002aa58cb43618384eb77efc5e0 /Locations.hs | |
| parent | 4e40b54a7516bbc9070faaef31254bd22154684e (diff) | |
Direct mode: Support filesystems like FAT which can change their inodes each time they are mounted.
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index 49ccb350c..fcf516bdc 100644 --- a/Locations.hs +++ b/Locations.hs @@ -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 |