From b3da6b94a2cecef01b48a21d37f01df4b94b01e8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 16 Oct 2017 12:54:00 -0400
Subject: avoid warning

---
 Command/Migrate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3