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

make parent directory

Browse source
This commit is contained in:
Joey Hess 2012-12-12 13:05:50 -04:00
parent 9d133270c2
commit 752b5354ab
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Content/Direct.hs
View file

@ -109,8 +109,10 @@ compareCache file old = do
{- Stores a cache of attributes for a file that is associated with a key. -} {- Stores a cache of attributes for a file that is associated with a key. -}
updateCache :: Key -> FilePath -> Annex () updateCache :: Key -> FilePath -> Annex ()
updateCache key file = withCacheFile key $ \cachefile -> updateCache key file = do
maybe noop (writeFile cachefile . showCache) =<< genCache file withCacheFile key $ \cachefile -> do
createDirectoryIfMissing True (parentDir cachefile)
maybe noop (writeFile cachefile . showCache) =<< genCache file
{- Removes a cache. -} {- Removes a cache. -}
removeCache :: Key -> Annex () removeCache :: Key -> Annex ()