Prettify instance Show PeerAddr

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Core/Node.hs b/src/Network/BitTorrent/Core/Node.hs
index 116333c5..82f05de4 100644
--- a/src/Network/BitTorrent/Core/Node.hs
+++ b/src/Network/BitTorrent/Core/Node.hs
@@ -118,10 +118,14 @@ genNodeId = NodeId <$> getEntropy nodeIdSize
 data NodeAddr a = NodeAddr
   { nodeHost ::                !a
   , nodePort :: {-# UNPACK #-} !PortNumber
-  } deriving (Show, Eq, Typeable)
+  } deriving (Eq, Typeable)
 
 $(deriveJSON omitRecordPrefix ''NodeAddr)
 
+instance Show a => Show (NodeAddr a) where
+  showsPrec i NodeAddr {..}
+    = showsPrec i nodeHost <> showString ":" <> showsPrec i nodePort
+
 instance Read (NodeAddr IPv4) where
   readsPrec i x = [ (fromPeerAddr a, s) | (a, s) <- readsPrec i x ]