diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-27 22:43:05 +1100 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-27 22:43:05 +1100 |
| commit | 9a58cbabc8fb30b181da48191a87ba6520e0fb0c (patch) | |
| tree | b64107b98ecc0d779291cad90fada13d0f6f4bf6 /Assistant/NamedThread.hs | |
| parent | 3bd8fba2db932b7730ba497d60030db6ee6f6405 (diff) | |
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
Diffstat (limited to 'Assistant/NamedThread.hs')
| -rw-r--r-- | Assistant/NamedThread.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Assistant/NamedThread.hs b/Assistant/NamedThread.hs index fbb7da4c2..fd710cf54 100644 --- a/Assistant/NamedThread.hs +++ b/Assistant/NamedThread.hs @@ -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 |