mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2013-03-12 06:45:56 -04:00
parent ccb7e5cfa4
commit c56e8f07ba
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Assistant.hs
View file

@ -178,7 +178,7 @@ startDaemon assistant foreground startbrowser = do
origerr <- liftIO $ catchMaybeIO $ origerr <- liftIO $ catchMaybeIO $
fdToHandle =<< dup stdError fdToHandle =<< dup stdError
liftIO $ Utility.LogFile.redirLog logfd liftIO $ Utility.LogFile.redirLog logfd
showStart (if assistant then "assistant" else "watch") "." showStart "." desc
start id $ start id $
case startbrowser of case startbrowser of
Nothing -> Nothing Nothing -> Nothing
@ -186,6 +186,9 @@ startDaemon assistant foreground startbrowser = do
else else
start (Utility.Daemon.daemonize logfd (Just pidfile) False) Nothing start (Utility.Daemon.daemonize logfd (Just pidfile) False) Nothing
where where
desc
| assistant = "assistant"
| otherwise = "watch"
start daemonize webappwaiter = withThreadState $ \st -> do start daemonize webappwaiter = withThreadState $ \st -> do
checkCanWatch checkCanWatch
when assistant $ checkEnvironment when assistant $ checkEnvironment