diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-26 17:09:33 +1100 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-26 17:09:33 +1100 |
| commit | dc60216eb8fe919acf7ab3984a5f0bf0e0193f6b (patch) | |
| tree | 7fb8c8bd0189f1868e732fc1c6047df933333ecf /Assistant/Threads/PairListener.hs | |
| parent | f0f97334d017eac6d1693bac90c772022fa57aa7 (diff) | |
webapp: Now allows restarting any threads that crash.
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 1f9de09ac..b7e3ce66d 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -23,11 +23,8 @@ import Network.Socket import qualified Data.Text as T import Data.Char -thisThread :: ThreadName -thisThread = "PairListener" - pairListenerThread :: UrlRenderer -> NamedThread -pairListenerThread urlrenderer = NamedThread "PairListener" $ do +pairListenerThread urlrenderer = namedThread "PairListener" $ do listener <- asIO1 $ go [] [] liftIO $ withSocketsDo $ runEvery (Seconds 1) $ void $ tryIO $ |