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 |