squelch a couple of warnings about moveAnnex return code

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

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 ()