diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-25 00:37:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-25 00:37:41 -0400 |
| commit | f5ccd0349ef558d222005aa05068d6a391293959 (patch) | |
| tree | 0418de30ef46e5f363022a9ae1cb8deeb4d339c8 /Assistant.hs | |
| parent | f36eb3efd41c1a35fcbba8fcee2707826c4716a8 (diff) | |
assistant: Work around git-cat-file's not reloading the index after files are staged.
Argh.
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 |