annex.autocommit

New setting, can be used to disable autocommit of changed files by the
assistant, while it still does data syncing and other tasks.

Also wired into webapp UI
This commit is contained in:
Joey Hess 2013-01-27 22:43:05 +11:00
parent d3d791c7e7
commit 5cd152b8a9
9 changed files with 87 additions and 13 deletions

View file

@ -73,6 +73,11 @@ startNamedThread urlrenderer namedthread@(NamedThread name a) = do
, buttonAction = Just close
}
namedThreadId :: NamedThread -> Assistant (Maybe ThreadId)
namedThreadId (NamedThread name _) = do
m <- startedThreads <$> getDaemonStatus
return $ asyncThreadId . fst <$> M.lookup name m
{- Waits for all named threads that have been started to finish.
-
- Note that if a named thread crashes, it will probably