diff options
-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 |