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

fix file perms after breaking hard link

Browse source
This commit is contained in:
Joey Hess 2015-12-27 16:12:48 -04:00
parent a46158240b
commit 1499b9b79d
Failed to extract signature
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Fix.hs
View file

@ -16,6 +16,7 @@ import qualified Annex
import Annex.Version import Annex.Version
import Annex.ReplaceFile import Annex.ReplaceFile
import Annex.Content import Annex.Content
import Annex.Perms
import qualified Annex.Queue import qualified Annex.Queue
import qualified Database.Keys import qualified Database.Keys
#ifdef WITH_CLIBS #ifdef WITH_CLIBS
@ -70,9 +71,11 @@ start fixwhat file key = do
breakHardLink :: FilePath -> Key -> FilePath -> CommandPerform breakHardLink :: FilePath -> Key -> FilePath -> CommandPerform
breakHardLink file key obj = do breakHardLink file key obj = do
replaceFile file $ \tmp -> replaceFile file $ \tmp -> do
unlessM (checkedCopyFile key obj tmp) $ unlessM (checkedCopyFile key obj tmp) $
error "unable to break hard link" error "unable to break hard link"
thawContent tmp
modifyContent obj $ freezeContent obj
Database.Keys.storeInodeCaches key [file] Database.Keys.storeInodeCaches key [file]
next $ return True next $ return True