webapp: Now allows restarting any threads that crash.

2013-01-26 17:09:33 +11:00 · 2013-01-26 17:09:33 +11:00 · 76ddf9b6d3
commit 76ddf9b6d3
parent 07717a9b2b
30 changed files with 124 additions and 61 deletions
--- a/Assistant/Threads/TransferScanner.hs
+++ b/Assistant/Threads/TransferScanner.hs
@ -31,7 +31,7 @@ import qualified Data.Set as S
 - that need to be made, to keep data in sync.
 -}
 transferScannerThread :: NamedThread
-transferScannerThread = NamedThread "TransferScanner" $ do
+transferScannerThread = namedThread "TransferScanner" $ do
 	startupScan
 	go S.empty
  where