diff options
| -rw-r--r-- | Assistant.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Assistant.hs b/Assistant.hs index 98e156175..0b89369b0 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -178,7 +178,7 @@ startDaemon assistant foreground startbrowser = do origerr <- liftIO $ catchMaybeIO $ fdToHandle =<< dup stdError liftIO $ Utility.LogFile.redirLog logfd - showStart (if assistant then "assistant" else "watch") "." + showStart "." desc start id $ case startbrowser of Nothing -> Nothing @@ -186,6 +186,9 @@ startDaemon assistant foreground startbrowser = do else start (Utility.Daemon.daemonize logfd (Just pidfile) False) Nothing where + desc + | assistant = "assistant" + | otherwise = "watch" start daemonize webappwaiter = withThreadState $ \st -> do checkCanWatch when assistant $ checkEnvironment |