diff options
author | 2012-09-06 14:56:04 -0400 | |
---|---|---|
committer | 2012-09-06 14:56:04 -0400 | |
commit | a00f1d26bc3f121e49ee3f6ff5f46d7b330161ff (patch) | |
tree | 1951e9ca7e482fc67f9c232b0fb22680ee19f5a0 /Command | |
parent | d11ded822cf68d4f33a886e0f97f95a3781e0dc1 (diff) |
display errors when any named thread crashes
Diffstat (limited to 'Command')
-rw-r--r-- | Command/WebApp.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index c8a7c7f59..9a3be19d1 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -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 "" |