diff options
Diffstat (limited to 'Annex/Direct.hs')
| -rw-r--r-- | Annex/Direct.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Direct.hs b/Annex/Direct.hs index 962c7595c..dc09742bc 100644 --- a/Annex/Direct.hs +++ b/Annex/Direct.hs @@ -198,9 +198,10 @@ toDirectGen k f = do locs <- filterM (\loc -> isNothing <$> getAnnexLinkTarget loc) =<< (filter (/= absf) <$> addAssociatedFile k f) case locs of - (loc:_) -> return $ Just $ + (loc:_) -> return $ Just $ do replaceFile f $ liftIO . void . copyFileExternal loc + updateInodeCache k f _ -> return Nothing {- Removes a direct mode file, while retaining its content in the annex |