avoid warning
This commit is contained in:
parent
ef62eb26d0
commit
a2bf0c5b6d
1 changed files with 1 additions and 1 deletions
|
@ -74,7 +74,7 @@ perform file oldkey oldbackend newbackend = go =<< genkey
|
|||
checkcontent = Command.Fsck.checkBackend oldbackend oldkey Command.Fsck.KeyLocked afile
|
||||
finish newkey = ifM (Command.ReKey.linkKey file oldkey newkey)
|
||||
( do
|
||||
copyMetaData oldkey newkey
|
||||
_ <- copyMetaData oldkey newkey
|
||||
-- If the old key had some associated urls, record them for
|
||||
-- the new key as well.
|
||||
urls <- getUrls oldkey
|
||||
|
|
Loading…
Reference in a new issue