Query.insertNode no longer forks.

1 files changed, 7 insertions, 5 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 0345e1ee..569e1d3d 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -23,6 +23,7 @@ import System.IO
 import System.IO.Error
 import Text.PrettyPrint.HughesPJClass
 import Text.Printf
+import Text.Read
 import Control.Monad.Reader.Class
 import System.Posix.Process (getProcessID)
 
@@ -163,11 +164,12 @@ clientSession st signalQuit sock n h = do
                     return $ do
                     hPutClient h $ showReport r
 
-        ("peers", s) -> cmd $ do
-                    let ih = fromString s
-                    ps <- allPeers ih
-                    return $ do
-                    hPutClient h $ showReport $ map (((,) "") . show . pPrint) ps
+        ("peers", s) -> cmd $ case readEither s of
+                        Right ih -> do
+                            ps <- allPeers ih
+                            seq ih $ return $ do
+                            hPutClient h $ showReport $ map (((,) "") . show . pPrint) ps
+                        Left er -> return $ hPutClient h er
 
         ("pid", _) -> cmd $ return $ do
                     pid <- getProcessID