diff options
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 |