automatically set and unset core.bare when switching to/from direct mode

1 files changed, 4 insertions, 1 deletions

diff --git a/Config.hs b/Config.hs
index ac251983a..475cb83ec 100644
--- a/Config.hs
+++ b/Config.hs
@@ -73,8 +73,11 @@ isDirect = annexDirect <$> Annex.getGitConfig
 
 setDirect :: Bool -> Annex ()
 setDirect b = do
-	setConfig (annexConfig "direct") (Git.Config.boolConfig b)
+	setConfig (annexConfig "direct") val
+	setConfig (ConfigKey Git.Config.coreBare) val
 	Annex.changeGitConfig $ \c -> c { annexDirect = b }
+  where
+	val = Git.Config.boolConfig b
 
 crippledFileSystem :: Annex Bool
 crippledFileSystem = annexCrippledFileSystem <$> Annex.getGitConfig