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

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,