avoid warning

This commit is contained in:
Joey Hess 2017-10-16 12:54:00 -04:00
parent ef62eb26d0
commit a2bf0c5b6d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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