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/TransferPoller.hs
+++ b/Assistant/Threads/TransferPoller.hs
@ -19,7 +19,7 @@ import qualified Data.Map as M
 {- This thread polls the status of ongoing transfers, determining how much
 - of each transfer is complete. -}
 transferPollerThread :: NamedThread
-transferPollerThread = NamedThread "TransferPoller" $ do
+transferPollerThread = namedThread "TransferPoller" $ do
 	g <- liftAnnex gitRepo
 	tn <- liftIO . newNotificationHandle =<<
 		transferNotifier <$> getDaemonStatus