diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-06-09 14:45:00 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-06-09 14:45:00 -0400 |
commit | ab157b634f7455afbdc414b502cbfaa20c94642d (patch) | |
tree | 3cae05a832b05ad16b69cab47f2b8562603d45be /Command | |
parent | 3be798cc348c0869e76c02c972126403927f4475 (diff) |
Fix update of associated files db when unlocking a file in a v6 repo.
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Unlock.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |