diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-22 13:23:33 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-22 13:42:58 -0400 |
commit | 0da2a837d1634164695591029072b88cd56b46e7 (patch) | |
tree | 7c8dea2beeb08007df09c0b6f02d1b7943b7970b /Command/Lock.hs | |
parent | 0ac35d9b0ea997f9d6051d86889f4bb4df914498 (diff) |
refactoring
no behavior changes
Diffstat (limited to 'Command/Lock.hs')
-rw-r--r-- | Command/Lock.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Lock.hs b/Command/Lock.hs index 741c18c15..1be6e9c76 100644 --- a/Command/Lock.hs +++ b/Command/Lock.hs @@ -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 |