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

refactoring

Browse source 
no behavior changes
This commit is contained in:
Joey Hess 2015-12-22 13:23:33 -04:00
parent ca2c977704
commit 8e9608d7f0
Failed to extract signature
9 changed files with 239 additions and 213 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Lock.hs
View file

@ -19,7 +19,7 @@ import Annex.Perms
import Annex.ReplaceFile
import Utility.InodeCache
import qualified Database.Keys
import qualified Command.Add
import Annex.Ingest
import Logs.Location
cmd :: Command
@ -60,7 +60,7 @@ startNew file key = ifM (isJust <$> isAnnexLink file)
performNew :: FilePath -> Key -> Bool -> CommandPerform
performNew file key filemodified = do
lockdown =<< calcRepo (gitAnnexLocation key)
Command.Add.addLink file key
addLink file key
=<< withTSDelta (liftIO . genInodeCache file)
next $ cleanupNew file key
where