split out Utility.InodeCache

This commit is contained in:
Joey Hess 2013-02-14 16:17:40 -04:00
parent 47477b2807
commit a52f8f382b
8 changed files with 95 additions and 88 deletions

View file

@ -12,7 +12,7 @@ module Locations (
keyPath,
gitAnnexLocation,
gitAnnexMapping,
gitAnnexCache,
gitAnnexInodeCache,
annexLocations,
annexLocation,
gitAnnexDir,
@ -123,8 +123,8 @@ gitAnnexMapping key r = do
{- 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
gitAnnexInodeCache :: Key -> Git.Repo -> IO FilePath
gitAnnexInodeCache key r = do
loc <- gitAnnexLocation key r
return $ loc ++ ".cache"