diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-09-13 12:05:53 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-09-13 12:05:53 -0400 |
commit | 8de30db154a60d9ab37c68175b0182e31ee35515 (patch) | |
tree | 4b7c8d3d6a7fcb05e6014df21ea9b08aa4c0e677 /Remote | |
parent | 78e336434de08edcda121ddee2873023419672b2 (diff) |
clear exportSupported for non-export remotes
Non-export remotes were being treated as untrusted, so the test suite
failed, and probably other things broke.
Diffstat (limited to 'Remote')
-rw-r--r-- | Remote/Helper/Export.hs | 7 |
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 |