diff options
Diffstat (limited to 'Locations.hs')
-rw-r--r-- | Locations.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Locations.hs b/Locations.hs index 36172d621..cfe9bd27d 100644 --- a/Locations.hs +++ b/Locations.hs @@ -12,6 +12,7 @@ module Locations ( keyPath, gitAnnexLocation, gitAnnexMapping, + gitAnnexCache, annexLocations, annexLocation, gitAnnexDir, @@ -115,6 +116,14 @@ gitAnnexMapping key r = do loc <- gitAnnexLocation key r return $ loc ++ ".map" +{- File that caches information about a key's content, used to determine + - if a file has changed. + - Used in direct mode. -} +gitAnnexCache :: Key -> Git.Repo -> IO FilePath +gitAnnexCache key r = do + loc <- gitAnnexLocation key r + return $ loc ++ ".cache" + {- The annex directory of a repository. -} gitAnnexDir :: Git.Repo -> FilePath gitAnnexDir r = addTrailingPathSeparator $ Git.localGitDir r </> annexDir |