rename function
This commit is contained in:
parent
807ba6a903
commit
b72d3fbeba
3 changed files with 15 additions and 16 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue