diff options
Diffstat (limited to 'Remote')
-rw-r--r-- | Remote/Helper/Export.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Remote/Helper/Export.hs b/Remote/Helper/Export.hs index 73ebb9141..a46f7bd6c 100644 --- a/Remote/Helper/Export.hs +++ b/Remote/Helper/Export.hs @@ -8,12 +8,10 @@ module Remote.Helper.Export where import Annex.Common -import qualified Annex import Types.Remote import Types.Creds import Types.Backend import Types.Key -import Types.TrustLevel import Backend import Remote.Helper.Encryptable (isEncrypted) import Database.Export @@ -84,6 +82,10 @@ exportableRemote r = case M.lookup "exporttree" (config r) of , checkPresent = \k -> anyM (checkPresentExport (exportActions r) k) =<< liftIO (getExportLocation db k) + , mkUnavailable = return Nothing + , getInfo = do + is <- getInfo r + return (is++[("export", "yes")]) } _ -> return $ Just $ r { exportActions = exportUnsupported } |