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

rename function

Browse source
This commit is contained in:
Joey Hess 2015-10-01 14:13:53 -04:00
parent 807ba6a903
commit b72d3fbeba
3 changed files with 15 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/ReKey.hs
View file

@ -52,7 +52,7 @@ perform file oldkey newkey = do
{- Make a hard link to the old key content (when supported),
- to avoid wasting disk space. -}
linkKey :: Key -> Key -> Annex Bool
linkKey oldkey newkey = getViaTmpUnchecked newkey $ \tmp -> do
linkKey oldkey newkey = getViaTmp' newkey $ \tmp -> do
src <- calcRepo $ gitAnnexLocation oldkey
liftIO $ ifM (doesFileExist tmp)
( return True