diff options
author | 2013-01-26 17:09:33 +1100 | |
---|---|---|
committer | 2013-01-26 17:09:33 +1100 | |
commit | dc60216eb8fe919acf7ab3984a5f0bf0e0193f6b (patch) | |
tree | 7fb8c8bd0189f1868e732fc1c6047df933333ecf /Assistant/Threads/NetWatcher.hs | |
parent | f0f97334d017eac6d1693bac90c772022fa57aa7 (diff) |
webapp: Now allows restarting any threads that crash.
Diffstat (limited to 'Assistant/Threads/NetWatcher.hs')
-rw-r--r-- | Assistant/Threads/NetWatcher.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/NetWatcher.hs b/Assistant/Threads/NetWatcher.hs index c5a48ad25..6ac7203b0 100644 --- a/Assistant/Threads/NetWatcher.hs +++ b/Assistant/Threads/NetWatcher.hs @@ -33,7 +33,7 @@ netWatcherThread = thread dbusThread netWatcherThread = thread noop #endif where - thread = NamedThread "NetWatcher" + thread = namedThread "NetWatcher" {- This is a fallback for when dbus cannot be used to detect - network connection changes, but it also ensures that @@ -41,7 +41,7 @@ netWatcherThread = thread noop - while (despite the local network staying up), are synced with - periodically. -} netWatcherFallbackThread :: NamedThread -netWatcherFallbackThread = NamedThread "NetWatcherFallback" $ +netWatcherFallbackThread = namedThread "NetWatcherFallback" $ runEvery (Seconds 3600) <~> handleConnection #if WITH_DBUS |