XMPP: Type-checking on various uses of SockAddr.

1 files changed, 2 insertions, 2 deletions

diff --git a/ToxManager.hs b/ToxManager.hs
index 6ffa4840..bcc4d86d 100644
--- a/ToxManager.hs
+++ b/ToxManager.hs
@@ -26,7 +26,7 @@ import qualified Network.Tox.Onion.Transport as Tox
 import Presence
 import Text.Read
 import ToxToXMPP
-import XMPPServer                            (ConnectionKey)
+import XMPPServer                            (ClientAddress)
 import DPut
 
 
@@ -53,7 +53,7 @@ toxman :: Announcer
             -> [(String,TVar (BucketList Tox.NodeInfo))]
             -> Tox.Tox JabberClients
             -> PresenceState
-            -> ToxManager ConnectionKey
+            -> ToxManager ClientAddress
 toxman announcer toxbkts tox presence = ToxManager
     { activateAccount        = \k pubname seckey -> do
         dput XMan $ "toxman ACTIVATE " ++ show (Tox.key2id $ toPublic seckey)