remove (v6) associated file in unannex

diff --git a/Command/Unannex.hs b/Command/Unannex.hs
index f7af8cde6301cea2e98a5445c06d574ee057537f..9bde191068e7353f1a2973437a98f2c3cd86947c 100644 (file)
--- a/Command/Unannex.hs
+++ b/Command/Unannex.hs
@@ -22,6 +22,7 @@ import qualified Git.Ref
 import qualified Git.DiffTree as DiffTree
 import Utility.CopyFile
 import Command.PreCommit (lockPreCommitHook)
+import qualified Database.Keys
 
 cmd :: Command
 cmd = withGlobalOptions annexedMatchingOptions $
@@ -86,6 +87,7 @@ performIndirect file key = do
 
 cleanupIndirect :: FilePath -> Key -> CommandCleanup
 cleanupIndirect file key = do
+       Database.Keys.removeAssociatedFile key file
        src <- calcRepo $ gitAnnexLocation key
        ifM (Annex.getState Annex.fast)
                ( do