mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Fix update of associated files db when unlocking a file in a v6 repo.

Browse source
This commit is contained in:
Joey Hess 2016-06-09 14:45:00 -04:00
parent 0bc7fee660
commit 7fe2ecff91
Failed to extract signature
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Unlock.hs
View file

@ -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