Updated Search module for rewrite.

1 files changed, 3 insertions, 1 deletions

diff --git a/Mainline.hs b/Mainline.hs
index 80834922..8853e920 100644
--- a/Mainline.hs
+++ b/Mainline.hs
@@ -59,10 +59,12 @@ instance FiniteBits NodeId where
 
 data NodeInfo = NodeInfo
   { nodeId   :: NodeId
-  , nodeIP :: IP
+  , nodeIP   :: IP
   , nodePort :: PortNumber
   }
 
+-- The Hashable instance depends only on the IP address and port number.  It is
+-- used to compute the announce token.
 instance Hashable NodeInfo where
   hashWithSalt s ni = hashWithSalt s (nodeIP ni , nodePort ni)
   {-# INLINE hashWithSalt #-}