diff --git a/Remote/Git.hs b/Remote/Git.hs
index a9e3c3c9fe..49f040cc80 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -98,7 +98,7 @@ gen r u _ = new <$> remoteCost r defcst
 				then Just $ Git.repoPath r
 				else Nothing
 			, repo = r
-			, readonly = False
+			, readonly = Git.repoIsHttp r
 			, remotetype = remote
 			}