diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
| commit | df337bb63b4ed6e5d2ce563ec89d28d192e791db (patch) | |
| tree | 638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/Pairing/Network.hs | |
| parent | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff) | |
hlint
Diffstat (limited to 'Assistant/Pairing/Network.hs')
| -rw-r--r-- | Assistant/Pairing/Network.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Pairing/Network.hs b/Assistant/Pairing/Network.hs index 7ce34962d..a6289c035 100644 --- a/Assistant/Pairing/Network.hs +++ b/Assistant/Pairing/Network.hs @@ -58,7 +58,7 @@ multicastPairMsg repeats secret pairdata stage = go M.empty repeats threadDelaySeconds (Seconds 2) go cache' $ pred <$> n {- The multicast library currently chokes on ipv6 addresses. -} - sendinterface cache (IPv6Addr _) = noop + sendinterface _ (IPv6Addr _) = noop sendinterface cache i = void $ catchMaybeIO $ withSocketsDo $ bracket setup cleanup use where @@ -106,7 +106,7 @@ showAddr (IPv6Addr (o1, o2, o3, o4)) = show $ IPv6 o1 o2 o3 o4 activeNetworkAddresses :: IO [SomeAddr] activeNetworkAddresses = filter (not . all (`elem` "0.:") . showAddr) - . concat . map (\ni -> [toSomeAddr $ ipv4 ni, toSomeAddr $ ipv6 ni]) + . concatMap (\ni -> [toSomeAddr $ ipv4 ni, toSomeAddr $ ipv6 ni]) <$> getNetworkInterfaces {- A human-visible description of the repository being paired with. |