diff options
| author | joe <joe@jerkface.net> | 2017-07-11 13:03:13 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-11 13:03:13 -0400 |
| commit | 42c7e85689505fc719088c613f1dc4bc52752643 (patch) | |
| tree | adc95338fd4eb4add227a2fc54e8e257bff9b1b1 /examples | |
| parent | c8752be4ae1b9480a39c7a89bbdcb118d381fbaf (diff) | |
Added DHT name to listener thread label.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/dhtd.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 15db79ea..ab256831 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -167,6 +167,7 @@ godht :: | |||
| 167 | , Pretty (NodeInfo dht IPv4 u) | 167 | , Pretty (NodeInfo dht IPv4 u) |
| 168 | , Default u | 168 | , Default u |
| 169 | , Show u | 169 | , Show u |
| 170 | , Typeable dht | ||
| 170 | ) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b | 171 | ) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b |
| 171 | godht p f = do | 172 | godht p f = do |
| 172 | a <- btBindAddr p False | 173 | a <- btBindAddr p False |