From f8e7ea77fc84730ebae0d81a425cc37edb1f99cb Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 17 Jan 2019 16:08:25 -0400
Subject: [PATCH] check present when testing readonly too

The object is supposed to be present on the readonly remote; have to
assume the location log is right about that, so the presence check
should succeed.
---
 Command/TestRemote.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs
index 0ac54a6303..72f4bb054a 100644
--- a/Command/TestRemote.hs
+++ b/Command/TestRemote.hs
@@ -162,7 +162,7 @@ test st r k = catMaybes
 	, whenwritable $ check "storeKey" store
 	, whenwritable $ present True
 	, whenwritable $ check "storeKey when already present" store
-	, whenwritable $ present True
+	, Just $ present True
 	, Just $ check "retrieveKeyFile" $ do
 		lockContentForRemoval k removeAnnex
 		get