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

remove (v6) associated file in unannex

Browse source
This commit is contained in:
Joey Hess 2015-12-21 18:00:13 -04:00
parent d82b110da8
commit 4cf9efb51a
Failed to extract signature
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Unannex.hs
View file

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