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

variable name

Browse source
This commit is contained in:
Joey Hess 2012-02-17 00:21:35 -04:00
parent f3c75b601f
commit 1ed5e4d9e3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/ReKey.hs
View file

@ -46,9 +46,9 @@ perform file oldkey newkey = do
{- Make a hard link to the old key content, to avoid wasting disk space. -} {- Make a hard link to the old key content, to avoid wasting disk space. -}
linkKey :: Key -> Key -> Annex Bool linkKey :: Key -> Key -> Annex Bool
linkKey oldkey newkey = getViaTmpUnchecked newkey $ \t -> do linkKey oldkey newkey = getViaTmpUnchecked newkey $ \tmp -> do
src <- inRepo $ gitAnnexLocation oldkey src <- inRepo $ gitAnnexLocation oldkey
liftIO $ unlessM (doesFileExist t) $ createLink src t liftIO $ unlessM (doesFileExist tmp) $ createLink src tmp
return True return True
cleanup :: FilePath -> Key -> Key -> CommandCleanup cleanup :: FilePath -> Key -> Key -> CommandCleanup