fix toDirectGen bug introduced in 247b7e9e58

This commit is contained in:
Joey Hess 2013-05-15 19:15:40 -04:00
parent 991d09139d
commit 4829eae883

View file

@ -191,6 +191,7 @@ toDirectGen k f = do
{- Move content from annex to direct file. -}
thawContentDir loc
updateInodeCache k loc
addAssociatedFile k f
thawContent loc
replaceFile f $ liftIO . moveFile loc
fromdirect = do