diff options
Diffstat (limited to 'SybilLimit.hs')
| -rw-r--r-- | SybilLimit.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/SybilLimit.hs b/SybilLimit.hs index f2b983c..ad85cfd 100644 --- a/SybilLimit.hs +++ b/SybilLimit.hs | |||
| @@ -139,7 +139,11 @@ updateRoute i (k,j) fs = jfromk $ ktoj fs | |||
| 139 | setFrom i x f = f { routesFrom = IntMap.insert i x (routesFrom f)} | 139 | setFrom i x f = f { routesFrom = IntMap.insert i x (routesFrom f)} |
| 140 | 140 | ||
| 141 | 141 | ||
| 142 | -- | Note: an exception will be thrown if srcId is not a valid friend node. | 142 | -- | Required: |
| 143 | -- | ||
| 144 | -- (1) srcId must be a valid friend node. | ||
| 145 | -- | ||
| 146 | -- (2) msg must be either ForwardRRMessage or BackwardRRMessage | ||
| 143 | forwardMessage :: ThisNode -> (FriendNode -> IntMap Int) -> (NodeId,PeerMessage) -> (NodeId, PeerMessage) | 147 | forwardMessage :: ThisNode -> (FriendNode -> IntMap Int) -> (NodeId,PeerMessage) -> (NodeId, PeerMessage) |
| 144 | forwardMessage me next (srcId,msg) = msg' | 148 | forwardMessage me next (srcId,msg) = msg' |
| 145 | where msg' = ( dest, msg { rrCount = rrCount msg + 1 } ) | 149 | where msg' = ( dest, msg { rrCount = rrCount msg + 1 } ) |