webapp: Now allows restarting any threads that crash.
This commit is contained in:
parent
07717a9b2b
commit
76ddf9b6d3
30 changed files with 124 additions and 61 deletions
|
@ -20,7 +20,7 @@ import Data.Time.Clock.POSIX
|
|||
|
||||
{- This thread wakes up occasionally to make sure the tree is in good shape. -}
|
||||
sanityCheckerThread :: NamedThread
|
||||
sanityCheckerThread = NamedThread "SanityChecker" $ forever $ do
|
||||
sanityCheckerThread = namedThread "SanityChecker" $ forever $ do
|
||||
waitForNextCheck
|
||||
|
||||
debug ["starting sanity check"]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue