diff options
Diffstat (limited to 'Assistant.hs')
| -rw-r--r-- | Assistant.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant.hs b/Assistant.hs index 7e9f82449..c14f1e0df 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -9,6 +9,7 @@ module Assistant where +import qualified Annex import Assistant.Common import Assistant.DaemonStatus import Assistant.NamedThread @@ -61,6 +62,7 @@ stopDaemon = liftIO . Utility.Daemon.stopDaemon =<< fromRepo gitAnnexPidFile - stdout and stderr descriptors. -} startDaemon :: Bool -> Bool -> Maybe HostName -> Maybe (Maybe Handle -> Maybe Handle -> String -> FilePath -> IO ()) -> Annex () startDaemon assistant foreground listenhost startbrowser = do + Annex.changeState $ \s -> s { Annex.daemon = True } pidfile <- fromRepo gitAnnexPidFile logfile <- fromRepo gitAnnexLogFile logfd <- liftIO $ openLog logfile |