diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs
index 78921b8564..c8a9936667 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 d0f9e51d32..01741bbeb9 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 ()