diff options
| -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 33fd30c9..b63bd6fc 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -481,7 +481,7 @@ main = do | |||
| 481 | . Mainline.getPeersH btR swarms ni | 481 | . Mainline.getPeersH btR swarms ni |
| 482 | . flip Mainline.GetPeers (Just Mainline.Want_Both) | 482 | . flip Mainline.GetPeers (Just Mainline.Want_Both) |
| 483 | . (read . show)) -- TODO: InfoHash -> NodeId | 483 | . (read . show)) -- TODO: InfoHash -> NodeId |
| 484 | show | 484 | (show . pPrint) |
| 485 | (Just . show)) | 485 | (Just . show)) |
| 486 | ] | 486 | ] |
| 487 | , dhtParseId = readEither :: String -> Either String Mainline.NodeId | 487 | , dhtParseId = readEither :: String -> Either String Mainline.NodeId |