webapp is no longer a daemon

Remove --foreground and --stop options from it.
This commit is contained in:
Joey Hess 2012-08-01 16:40:38 -04:00
parent ca512f1450
commit d7a2600edd
2 changed files with 6 additions and 11 deletions

View file

@ -16,7 +16,6 @@ import Assistant.Threads.WebApp
import Utility.WebApp
import Utility.Daemon (checkDaemon, lockPidFile)
import Init
import qualified Command.Watch
import qualified Git.CurrentRepo
import qualified Annex
@ -25,18 +24,14 @@ import Control.Concurrent.STM
def :: [Command]
def = [oneShot $ noRepo firstRun $ dontCheck repoExists $
withOptions [Command.Watch.stopOption] $
command "webapp" paramNothing seek "launch webapp"]
seek :: [CommandSeek]
seek = [withFlag Command.Watch.stopOption $ \stopdaemon ->
withNothing $ start stopdaemon]
seek = [withNothing start]
start :: Bool -> CommandStart
start stopdaemon = notBareRepo $ do
if stopdaemon
then stopDaemon
else ifM (isInitialized) ( go , liftIO firstRun )
start :: CommandStart
start = notBareRepo $ do
ifM (isInitialized) ( go , liftIO firstRun )
stop
where
go = do

View file

@ -192,8 +192,8 @@ subdirectories).
* webapp
Opens a web browser, viewing the git-annex assistant's web app.
(If the assistant is not already running, it will be automatically started.)
Runs a web app, that allows easy setup of a git-annex repository,
and control of the git-annex assistant.
# REPOSITORY SETUP COMMANDS