ensure that content directory is thawed when writing direct mode mapping and cache files

This commit is contained in:
Joey Hess 2013-01-26 20:09:15 +11:00
parent 21a7ab4592
commit 103b572d8e
4 changed files with 37 additions and 34 deletions

View file

@ -171,7 +171,6 @@ toDirect k f = maybe noop id =<< toDirectGen k f
toDirectGen :: Key -> FilePath -> Annex (Maybe (Annex ()))
toDirectGen k f = do
loc <- inRepo $ gitAnnexLocation k
createContentDir loc -- thaws directory too
absf <- liftIO $ absPath f
locs <- filter (/= absf) <$> addAssociatedFile k f
case locs of