From ab157b634f7455afbdc414b502cbfaa20c94642d Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 9 Jun 2016 14:45:00 -0400
Subject: Fix update of associated files db when unlocking a file in a v6 repo.

---
 Command/Unlock.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Command')

diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index 4dc02642e..dfd8350f1 100644
--- a/Command/Unlock.hs
+++ b/Command/Unlock.hs
@@ -1,6 +1,6 @@
 {- git-annex command
  -
- - Copyright 2010,2015 Joey Hess <id@joeyh.name>
+ - Copyright 2010-2016 Joey Hess <id@joeyh.name>
  -
  - Licensed under the GNU GPL version 3 or higher.
  -}
@@ -16,6 +16,8 @@ import Annex.Link
 import Annex.ReplaceFile
 import Utility.CopyFile
 import Utility.FileMode
+import Git.FilePath
+import qualified Database.Keys
 
 cmd :: Command
 cmd = mkcmd "unlock" "unlock files for modification"
@@ -62,6 +64,7 @@ performNew dest key = do
 cleanupNew ::  FilePath -> Key -> Maybe FileMode -> CommandCleanup
 cleanupNew dest key destmode = do
 	stagePointerFile dest destmode =<< hashPointerFile key
+	Database.Keys.addAssociatedFile key =<< inRepo (toTopFilePath dest)
 	return True
 
 startOld :: FilePath -> Key -> CommandStart
-- 
cgit v1.2.3