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