Obtain selected secret-key from STM state.

1 files changed, 3 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 8fd707cd..6b8954d1 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -788,6 +788,9 @@ clientSession s@Session{..} sock cnum h = do
                                          goTarget
                                          $ dhtParseId nidstr
                         goTarget nid = do
+                            msec <- atomically $ do
+                                ks <- map swap <$> readKeys userkeys (accounts roster)
+                                return $ Data.List.lookup mypubkey ks
                             hPutClient h "TODO: convert selected public key to private, call netCrypto.."
                     goParse
         ("g", s) | Just DHT{..} <- Map.lookup netname dhts