diff options
Diffstat (limited to 'src/Network/Kademlia.hs')
| -rw-r--r-- | src/Network/Kademlia.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Network/Kademlia.hs b/src/Network/Kademlia.hs index 44ef2ec1..488a53ac 100644 --- a/src/Network/Kademlia.hs +++ b/src/Network/Kademlia.hs | |||
| @@ -66,7 +66,7 @@ contramapIR f ir = InsertionReporter | |||
| 66 | , reportPingResult = \tm ni b -> reportPingResult ir tm (f ni) b | 66 | , reportPingResult = \tm ni b -> reportPingResult ir tm (f ni) b |
| 67 | } | 67 | } |
| 68 | 68 | ||
| 69 | -- | All the IO operations neccessary to maintain a Kademlia routing table. | 69 | -- | All the IO operations necessary to maintain a Kademlia routing table. |
| 70 | data TableStateIO ni = TableStateIO | 70 | data TableStateIO ni = TableStateIO |
| 71 | { -- | Write the routing table. Typically 'writeTVar'. | 71 | { -- | Write the routing table. Typically 'writeTVar'. |
| 72 | tblWrite :: R.BucketList ni -> STM () | 72 | tblWrite :: R.BucketList ni -> STM () |
| @@ -99,7 +99,7 @@ vanillaIO var ping = TableStateIO | |||
| 99 | , tblTransition = const $ return $ return () | 99 | , tblTransition = const $ return $ return () |
| 100 | } | 100 | } |
| 101 | 101 | ||
| 102 | -- | Everything neccessary to maintain a routing table of /ni/ (node | 102 | -- | Everything necessary to maintain a routing table of /ni/ (node |
| 103 | -- information) entries. | 103 | -- information) entries. |
| 104 | data Kademlia nid ni = Kademlia (InsertionReporter ni) | 104 | data Kademlia nid ni = Kademlia (InsertionReporter ni) |
| 105 | (KademliaSpace nid ni) | 105 | (KademliaSpace nid ni) |
| @@ -109,7 +109,7 @@ data Kademlia nid ni = Kademlia (InsertionReporter ni) | |||
| 109 | -- Helper to 'insertNode'. | 109 | -- Helper to 'insertNode'. |
| 110 | -- | 110 | -- |
| 111 | -- Adapt return value from 'updateForPingResult' into a | 111 | -- Adapt return value from 'updateForPingResult' into a |
| 112 | -- more easily groked list of transitions. | 112 | -- more easily grokked list of transitions. |
| 113 | transition :: (ni,Maybe (t,ni)) -> [RoutingTransition ni] | 113 | transition :: (ni,Maybe (t,ni)) -> [RoutingTransition ni] |
| 114 | transition (x,m) = | 114 | transition (x,m) = |
| 115 | -- Just _ <- m = Node transition: Accepted --> Stranger | 115 | -- Just _ <- m = Node transition: Accepted --> Stranger |