diff options
| author | joe <joe@jerkface.net> | 2017-07-03 22:59:31 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-03 22:59:31 -0400 |
| commit | f75d515bc0100e5ca372d592aa2f5f4ff2fc858c (patch) | |
| tree | 71bc354c8f6b8fed2275eb8c215d99b654c7f473 /examples/dhtd.hs | |
| parent | 78b05bf38b83b5d46468e1f938bb8c2d9dd0804f (diff) | |
Fleshed out KRPC instances for Mainline DHT.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 4c8cefb5..fddaf5ab 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -168,7 +168,7 @@ godht :: | |||
| 168 | ) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b | 168 | ) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b |
| 169 | godht p f = do | 169 | godht p f = do |
| 170 | a <- btBindAddr p False | 170 | a <- btBindAddr p False |
| 171 | dht def { optTimeout = 5 } a noDebugPrints $ do | 171 | dht def { optTimeout = 5 } a allNoise $ do |
| 172 | me0 <- asks tentativeNodeId | 172 | me0 <- asks tentativeNodeId |
| 173 | printReport [("tentative node-id",show $ pPrint me0) | 173 | printReport [("tentative node-id",show $ pPrint me0) |
| 174 | ,("listen-address", show a) | 174 | ,("listen-address", show a) |