1 files changed, 6 insertions, 6 deletions

diff --git a/src/Network/BitTorrent/Address.hs b/src/Network/BitTorrent/Address.hs
index fea7139d..f8f29be5 100644
--- a/src/Network/BitTorrent/Address.hs
+++ b/src/Network/BitTorrent/Address.hs
@@ -99,7 +99,6 @@ import qualified Data.ByteString.Lazy.Builder as BS
 import Data.Char
 import Data.Convertible
 import Data.Default
-import Data.Foldable
 import Data.IP
 import Data.List as L
 import Data.List.Split as L
@@ -165,13 +164,13 @@ instance Address IP where
 setPort :: PortNumber -> SockAddr -> SockAddr
 setPort port (SockAddrInet  _   h  ) = SockAddrInet  port   h
 setPort port (SockAddrInet6 _ f h s) = SockAddrInet6 port f h s
-setPort _    (SockAddrUnix  s      ) = SockAddrUnix  s
+setPort _    addr                    = addr
 {-# INLINE setPort #-}
 
 getPort :: SockAddr -> Maybe PortNumber
 getPort (SockAddrInet  p   _  ) = Just p
 getPort (SockAddrInet6 p _ _ _) = Just p
-getPort (SockAddrUnix  _      ) = Nothing
+getPort _                       = Nothing
 {-# INLINE getPort #-}
 
 instance Address a => Address (NodeAddr a) where
@@ -689,7 +688,7 @@ newtype NodeDistance = NodeDistance BS.ByteString
 instance Pretty NodeDistance where
   pPrint (NodeDistance bs) = foldMap bitseq $ BS.unpack bs
     where
-      listBits w = L.map (testBit w) (L.reverse [0..bitSize w - 1])
+      listBits w = L.map (testBit w) (L.reverse [0..finiteBitSize w - 1])
       bitseq = foldMap (int . fromEnum) . listBits
 
 -- | distance(A,B) = |A xor B| Smaller values are closer.
@@ -1232,6 +1231,7 @@ bep42s addr (NodeId r) = mapMaybe (bep42 addr) rs
  where
     rs = L.map (NodeId . change3bits r) [0..7]
 
+change3bits :: ByteString -> Word8 -> ByteString
 change3bits bs n = BS.snoc (BS.init bs) (BS.last bs .&. 0xF8 .|. n)
 
 -- | Modifies a purely random 'NodeId' to one that is related to a given
@@ -1240,7 +1240,7 @@ bep42 :: Address a => a -> NodeId -> Maybe NodeId
 bep42 addr (NodeId r)
  | Just ip <- fmap S.encode (fromAddr addr :: Maybe IPv4)
               <|> fmap S.encode (fromAddr addr :: Maybe IPv6)
-    = genBucketSample' retr (NodeId $ crc $ masked ip) (3,0x07,0)
+    = genBucketSample' retr (NodeId $ crc $ applyMask ip) (3,0x07,0)
  | otherwise
     = Nothing
  where
@@ -1249,7 +1249,7 @@ bep42 addr (NodeId r)
     nbhood_select = BS.last r .&. 7
     retr n = pure $ BS.drop (BS.length r - n) r
     crc = S.encode . crc32c . BS.pack
-    masked ip = case BS.zipWith (.&.) msk ip of
+    applyMask ip = case BS.zipWith (.&.) msk ip of
                     (b:bs) -> (b .|. shiftL nbhood_select 5) : bs
                     bs     -> bs
         where msk | BS.length ip == 4  =  ip4mask