diff options
Diffstat (limited to 'Assistant/Pairing')
| -rw-r--r-- | Assistant/Pairing/Network.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Pairing/Network.hs b/Assistant/Pairing/Network.hs index 44a63df36..6c625f881 100644 --- a/Assistant/Pairing/Network.hs +++ b/Assistant/Pairing/Network.hs @@ -60,7 +60,7 @@ multicastPairMsg repeats secret pairdata stage = go M.empty repeats go cache' $ pred <$> n {- The multicast library currently chokes on ipv6 addresses. -} sendinterface _ (IPv6Addr _) = noop - sendinterface cache i = void $ catchMaybeIO $ + sendinterface cache i = void $ tryIO $ withSocketsDo $ bracket setup cleanup use where setup = multicastSender (multicastAddress i) pairingPort |