1 files changed, 4 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d4216dae..d0d8678d 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -312,13 +312,13 @@ data Session = Session
     , swarms            :: Mainline.SwarmsDatabase
     , cryptosessions    :: Tox.NetCryptoSessions
     , toxkeys           :: TVar Tox.AnnouncedKeys
-    , roster            :: Tox.ContactInfo
+    , roster            :: Tox.ContactInfo JabberClients
     , announceToLan     :: IO ()
     , connectionManager :: Maybe ConnectionManager
     , onionRouter       :: OnionRouter
     , announcer         :: Announcer
     , signalQuit        :: IO ()
-    , mbTox             :: Maybe Tox.Tox
+    , mbTox             :: Maybe (Tox.Tox JabberClients)
     }
 
 exceptionsToClient :: ClientHandle -> IO () -> IO ()
@@ -555,7 +555,7 @@ clientSession s@Session{..} sock cnum h = do
                         let pubkey = toPublic secret
                         oldks <- atomically $ do
                             ks <- myKeyPairs roster
-                            Tox.addContactInfo roster secret
+                            Tox.addContactInfo roster secret Map.empty
                             return ks
                         let asString = show . Tox.key2id
                         hPutClient h $ unlines $ map (mappend "  " . show . Tox.key2id . snd) oldks
@@ -584,7 +584,7 @@ clientSession s@Session{..} sock cnum h = do
                             pairs = map (toPair . f) mbSecs
                         oldks <- atomically $ do
                             oldks <- myKeyPairs roster
-                            forM pairs $ \(sk,_) -> Tox.addContactInfo roster sk
+                            forM pairs $ \(sk,_) -> Tox.addContactInfo roster sk Map.empty
                             return oldks
                         hPutClient h $ unlines $ map (mappend "  " . show . Tox.key2id . snd) oldks
                                                   ++ map (mappend " *" . show . Tox.key2id .snd) pairs