v5 for direct mode, with automatic upgrade

This includes storing the current state of the HEAD ref, which git annex
sync is going to need, but does not make sync use it.

1 files changed, 0 insertions, 8 deletions

diff --git a/Config.hs b/Config.hs
index 475cb83ec..0c6b64f50 100644
--- a/Config.hs
+++ b/Config.hs
@@ -71,14 +71,6 @@ getNumCopies Nothing = annexNumCopies <$> Annex.getGitConfig
 isDirect :: Annex Bool
 isDirect = annexDirect <$> Annex.getGitConfig
 
-setDirect :: Bool -> Annex ()
-setDirect b = do
-	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