clear exportSupported for non-export remotes

Non-export remotes were being treated as untrusted, so the test suite
failed, and probably other things broke.

1 files changed, 6 insertions, 1 deletions

diff --git a/Remote/Helper/Export.hs b/Remote/Helper/Export.hs
index 4616d4bb1..f7cfb6da3 100644
--- a/Remote/Helper/Export.hs
+++ b/Remote/Helper/Export.hs
@@ -79,7 +79,12 @@ adjustExportable r = case M.lookup "exporttree" (config r) of
 	Just "no" -> notexport
 	Just _ -> error "bad exporttree value"
   where
-	notexport = return $ r { exportActions = exportUnsupported }
+	notexport = return $ r 
+		{ exportActions = exportUnsupported
+		, remotetype = (remotetype r)
+			{ exportSupported = exportUnsupported
+			}
+		}
 	isexport = do
 		db <- openDb (uuid r)
 		return $ r