aboutsummaryrefslogtreecommitdiff
path: root/Command/WebApp.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-28 19:44:15 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-28 19:44:15 -0400
commit2267cdea6e550880835d5c3bc3b2a51b4f890e70 (patch)
tree14607b7f2e8f6f7ac41bb20cdcedf780b4a3d9f2 /Command/WebApp.hs
parentab2978b7e513b2b429c08e836b3b519d0076cda2 (diff)
webapp: Refuse to start in a bare git repository.
Diffstat (limited to 'Command/WebApp.hs')
-rw-r--r--Command/WebApp.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs
index d5f43432c..b252d4d7c 100644
--- a/Command/WebApp.hs
+++ b/Command/WebApp.hs
@@ -107,8 +107,11 @@ startNoRepo _ = do
(d:_) -> do
setCurrentDirectory d
state <- Annex.new =<< Git.CurrentRepo.get
- void $ Annex.eval state $ callCommandAction $
- start' False listenhost
+ 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,
- changes to it, starts the regular assistant, and redirects the