avoid setting annex.direct in bare repo (no behavior change, just less ugly)

1 files changed, 10 insertions, 9 deletions

diff --git a/Init.hs b/Init.hs
index 09e80eebd..fe1b7a441 100644
--- a/Init.hs
+++ b/Init.hs
@@ -160,15 +160,16 @@ checkCrippledFileSystem = whenM probeCrippledFileSystem $ do
 		setConfig (ConfigKey "core.symlinks")
 			(Git.Config.boolConfig False)
 
-	unlessM isDirect $ do
-		warning "Enabling direct mode."
-		top <- fromRepo Git.repoPath
-		(l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
-		forM_ l $ \f ->
-			maybe noop (`toDirect` f) =<< isAnnexLink f
-		void $ liftIO clean
-		setDirect True
-	setVersion directModeVersion
+	unlessBare $ do
+		unlessM isDirect $ do
+			warning "Enabling direct mode."
+			top <- fromRepo Git.repoPath
+			(l, clean) <- inRepo $ Git.LsFiles.inRepo [top]
+			forM_ l $ \f ->
+				maybe noop (`toDirect` f) =<< isAnnexLink f
+			void $ liftIO clean
+			setDirect True
+		setVersion directModeVersion
 
 probeFifoSupport :: Annex Bool
 probeFifoSupport = do