1 files changed, 16 insertions, 8 deletions

diff --git a/src/Network/Kademlia.hs b/src/Network/Kademlia.hs
index 53c37175..315cc652 100644
--- a/src/Network/Kademlia.hs
+++ b/src/Network/Kademlia.hs
@@ -52,15 +52,23 @@ data RoutingTransition ni = RoutingTransition
     deriving (Eq,Ord,Show,Read)
 
 data InsertionReporter ni = InsertionReporter
-    { -- | Called on every inbound packet.
+    { -- | Called on every inbound packet. Accepts:
+      --
+      --   * Origin of packet.
+      --
+      --   * List of nodes to be pinged as a result.
       reportArrival :: POSIXTime
-                       -> ni   -- ^ Origin of packet.
-                       -> [ni] -- ^ These will be pinged as a result.
+                       -> ni
+                       -> [ni]
                        -> IO ()
-      -- | Called on every ping probe.
+      -- | Called on every ping probe. Accepts:
+      --
+      --    * Who was pinged.
+      --
+      --    * True Bool value if they ponged.
     , reportPingResult :: POSIXTime
-                          -> ni   -- ^ Who was pinged.
-                          -> Bool -- ^ True if they ponged.
+                          -> ni
+                          -> Bool
                           -> IO ()
     }
 
@@ -122,8 +130,8 @@ data Kademlia nid ni = Kademlia (InsertionReporter ni)
 -- more easily groked list of transitions.
 transition :: (ni,Maybe (t,ni)) -> [RoutingTransition ni]
 transition (x,m) =
-    -- | Just _  <- m  =  Node transition:  Accepted  --> Stranger
-    -- | Nothing <- m  =  Node transition:  Applicant --> Stranger
+    -- Just _  <- m  =  Node transition:  Accepted  --> Stranger
+    -- Nothing <- m  =  Node transition:  Applicant --> Stranger
     RoutingTransition x Stranger
        : maybeToList (accepted <$> m)