mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

display errors when any named thread crashes

Browse source
This commit is contained in:
Joey Hess 2012-09-06 14:56:04 -04:00
parent d11ded822c
commit a00f1d26bc
18 changed files with 133 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/WebApp.hs
View file

@ -10,6 +10,7 @@ module Command.WebApp where
import Common.Annex
import Command
import Assistant
import Assistant.Common
import Assistant.DaemonStatus
import Assistant.ScanRemotes
import Assistant.TransferQueue
@ -93,8 +94,9 @@ firstRun = do
transferslots <- newTransferSlots
v <- newEmptyMVar
let callback a = Just $ a v
webAppThread Nothing dstatus scanremotes transferqueue transferslots
(callback signaler) (callback mainthread)
void $ runNamedThread dstatus $
webAppThread Nothing dstatus scanremotes transferqueue transferslots
(callback signaler) (callback mainthread)
where
signaler v = do
putMVar v ""