From a96b8b74311a52cc04e3d5e0d1d67628aa996693 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 28 Feb 2017 12:49:17 -0400
Subject: squelch a couple of warnings about moveAnnex return code

---
 Command/TestRemote.hs | 2 +-
 Upgrade/V1.hs         | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs
index 78921b856..c8a993666 100644
--- a/Command/TestRemote.hs
+++ b/Command/TestRemote.hs
@@ -225,5 +225,5 @@ randKey sz = withTmpFile "randkey" $ \f h -> do
 		}
 	k <- fromMaybe (error "failed to generate random key")
 		<$> Backend.getKey Backend.Hash.testKeyBackend ks
-	moveAnnex k f
+	_ <- moveAnnex k f
 	return k
diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs
index d0f9e51d3..01741bbeb 100644
--- a/Upgrade/V1.hs
+++ b/Upgrade/V1.hs
@@ -74,7 +74,7 @@ moveContent = do
 		let d = parentDir f
 		liftIO $ allowWrite d
 		liftIO $ allowWrite f
-		moveAnnex k f
+		_ <- moveAnnex k f
 		liftIO $ removeDirectory d
 
 updateSymlinks :: Annex ()
-- 
cgit v1.2.3