diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-24 14:37:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-24 14:37:34 -0400 |
| commit | aba11f9decf9bd4cd2081d38da80200269cbda39 (patch) | |
| tree | 4f21de80342d988b108ff692c2aaae418a397ff0 /Assistant/Threads/PairListener.hs | |
| parent | 29829cfd42bc3b15dfde49feeac82bcc4262096f (diff) | |
only retry every 60 seconds
Retying every second is a bit much, especially given the current leak
https://github.com/audreyt/network-multicast/issues/4
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs index 8fc015c22..882c95cc2 100644 --- a/Assistant/Threads/PairListener.hs +++ b/Assistant/Threads/PairListener.hs @@ -27,7 +27,7 @@ pairListenerThread :: UrlRenderer -> NamedThread pairListenerThread urlrenderer = namedThread "PairListener" $ do listener <- asIO1 $ go [] [] liftIO $ withSocketsDo $ - runEvery (Seconds 1) $ void $ tryIO $ + runEvery (Seconds 60) $ void $ tryIO $ listener =<< getsock where {- Note this can crash if there's no network interface, |