1 files changed, 1 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index cf0328e8..4dad2fe7 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -430,6 +430,7 @@ clientSession s@Session{..} sock cnum h = do
                             forM pairs $ \(_,pk) -> delRoster roster pk
                             readTVar userkeys
                         hPutClient h . showReport $ map mkrow ks
+        ("roster", s) -> cmd0 $ atomically (dnsPresentation roster) >>= hPutClient h
         ("g", s) | Just DHT{..} <- Map.lookup netname dhts
                     -> cmd0 $ do
                         -- arguments: method