diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-10-16 12:54:00 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-10-16 12:54:00 -0400 |
| commit | b3da6b94a2cecef01b48a21d37f01df4b94b01e8 (patch) | |
| tree | c65965574715d6fc0f0e697fcc5e947b1d247a16 | |
| parent | 81e159a0c914638df1357c08745e774513303471 (diff) | |
avoid warning
| -rw-r--r-- | Command/Migrate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Migrate.hs b/Command/Migrate.hs index 8924b1780..a68aee695 100644 --- a/Command/Migrate.hs +++ b/Command/Migrate.hs @@ -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 |