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
                                                         . Mainline.getPeersH btR swarms ni
                                                         . flip Mainline.GetPeers (Just Mainline.Want_Both)
                                                         . (read . show)) -- TODO: InfoHash -> NodeId
-                                                show
+                                                (show . pPrint)
                                                 (Just . show))
                             ]
             , dhtParseId  = readEither :: String -> Either String Mainline.NodeId