@@ -94,7 +94,9 @@ data LocalNode = LocalNode {
9494 ndTransport :: !Transport
9595 }
9696
97−data ProcessTable = ProcessTable !LocalProcessId !(IntMap ProcessTableEntry)
97+data ProcessTable = ProcessTable
98+ !LocalProcessId -- ^ Value of next ProcessTableEntry index
99+ !(IntMap ProcessTableEntry) -- ^ Index from LocalProcessIds to ProcessTableEntry
98100data ProcessTableEntry = ProcessTableEntry {
99101 pteThread :: !ThreadId
100102 }