diff options
Diffstat (limited to 'Upgrade')
| -rw-r--r-- | Upgrade/V5.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Upgrade/V5.hs b/Upgrade/V5.hs index 2073a0150..f6d18df43 100644 --- a/Upgrade/V5.hs +++ b/Upgrade/V5.hs @@ -20,6 +20,7 @@ import qualified Git import qualified Git.LsFiles import qualified Git.Branch import Git.FileMode +import Utility.InodeCache upgrade :: Bool -> Annex Bool upgrade automatic = do @@ -88,7 +89,8 @@ upgradeDirectWorkTree = do -- not populated with it. Since the work tree file -- is recorded as an associated file, things will still -- work that way, it's just not ideal. - void $ linkAnnex k f + ic <- withTSDelta (liftIO . genInodeCache f) + void $ linkAnnex k f ic writepointer f k = liftIO $ do nukeFile f writeFile f (formatPointer k) |