From 6af44b9de6168cf50128dfaf2c8400df961d2b70 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 29 Jul 2024 10:52:37 -0400
Subject: [PATCH] p2phttp remotes are not readonly

That prevented testremote from working when remote.name.url = http://..
---
 Remote/Git.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 90fb301c34..f59ef528b6 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -227,7 +227,7 @@ gen r u rc gc rs
 			, localpath = localpathCalc r
 			, getRepo = getRepoFromState st
 			, gitconfig = gc
-			, readonly = Git.repoIsHttp r
+			, readonly = Git.repoIsHttp r && not (isP2PHttp' gc)
 			, appendonly = False
 			, untrustworthy = False
 			, availability = repoAvail r