webapp: Refuse to start in a bare git repository.

Command/WebApp.hs

@@ -107,7 +107,10 @@ startNoRepo _ = do
 		(d:_) -> do
 			setCurrentDirectory d
 			state <- Annex.new =<< Git.CurrentRepo.get
-			void $ Annex.eval state $ callCommandAction $
+			void $ Annex.eval state $ do
+				whenM (fromRepo Git.repoIsLocalBare) $
+					error $ d ++ " is a bare git repository, cannot run the webapp in it"
+				callCommandAction $
 					start' False listenhost
 
 {- Run the webapp without a repository, which prompts the user, makes one,

debian/changelog

@@ -4,6 +4,7 @@ git-annex (5.20140228) UNRELEASED; urgency=medium
   * webapp: Filter out from Switch Repository list any
     repositories listed in autostart file that don't have a
     git directory anymore.
+  * webapp: Refuse to start in a bare git repository.
 
  -- Joey Hess <joeyh@debian.org>  Fri, 28 Feb 2014 14:52:15 -0400