summaryrefslogtreecommitdiff
path: root/Assistant.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-25 00:37:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-25 00:37:41 -0400
commitf5ccd0349ef558d222005aa05068d6a391293959 (patch)
tree0418de30ef46e5f363022a9ae1cb8deeb4d339c8 /Assistant.hs
parentf36eb3efd41c1a35fcbba8fcee2707826c4716a8 (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.hs2
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