fix toDirectGen bug introduced in 247b7e9e58
This commit is contained in:
parent
991d09139d
commit
4829eae883
1 changed files with 1 additions and 0 deletions
|
@ -191,6 +191,7 @@ toDirectGen k f = do
|
||||||
{- Move content from annex to direct file. -}
|
{- Move content from annex to direct file. -}
|
||||||
thawContentDir loc
|
thawContentDir loc
|
||||||
updateInodeCache k loc
|
updateInodeCache k loc
|
||||||
|
addAssociatedFile k f
|
||||||
thawContent loc
|
thawContent loc
|
||||||
replaceFile f $ liftIO . moveFile loc
|
replaceFile f $ liftIO . moveFile loc
|
||||||
fromdirect = do
|
fromdirect = do
|
||||||
|
|
Loading…
Add table
Reference in a new issue