1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/Address.hs b/src/Network/Address.hs
index cc06ac0d..9a601dcd 100644
--- a/src/Network/Address.hs
+++ b/src/Network/Address.hs
@@ -648,6 +648,10 @@ genBucketSample' gen self (q,m,b)
     | otherwise        =  either error id . S.decode .  build <$> gen (nodeIdSize - q + 1)
  where
     nodeIdSize = finiteBitSize (undefined :: nid) `div` 8
+
+    -- Prepends q bytes to modified input:
+    --   applies mask m
+    --   toggles bit b
     build tl = BS.init hd <> BS.cons (h .|. t) (BS.tail tl)
      where
         hd = BS.take q $ S.encode self