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

reorder for clarity

Browse source
This commit is contained in:
Joey Hess 2012-02-16 22:38:08 -04:00
parent 156a631f63
commit ba5515d422
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/ReKey.hs
View file

@ -53,13 +53,12 @@ linkKey oldkey newkey = getViaTmpUnchecked newkey $ \t -> do
cleanup :: FilePath -> Key -> Key -> CommandCleanup cleanup :: FilePath -> Key -> Key -> CommandCleanup
cleanup file oldkey newkey = do cleanup file oldkey newkey = do
-- Update symlink to use the new key.
liftIO $ removeFile file
-- If the old key had some associated urls, record them for -- If the old key had some associated urls, record them for
-- the new key as well. -- the new key as well.
urls <- getUrls oldkey urls <- getUrls oldkey
unless (null urls) $ unless (null urls) $
mapM_ (setUrlPresent newkey) urls mapM_ (setUrlPresent newkey) urls
-- Update symlink to use the new key.
liftIO $ removeFile file
Command.Add.cleanup file newkey True Command.Add.cleanup file newkey True