diff options
Diffstat (limited to 'ToxManager.hs')
-rw-r--r-- | ToxManager.hs | 4 |
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 | |||
26 | import Presence | 26 | import Presence |
27 | import Text.Read | 27 | import Text.Read |
28 | import ToxToXMPP | 28 | import ToxToXMPP |
29 | import XMPPServer (ConnectionKey) | 29 | import XMPPServer (ClientAddress) |
30 | import DPut | 30 | import DPut |
31 | 31 | ||
32 | 32 | ||
@@ -53,7 +53,7 @@ toxman :: Announcer | |||
53 | -> [(String,TVar (BucketList Tox.NodeInfo))] | 53 | -> [(String,TVar (BucketList Tox.NodeInfo))] |
54 | -> Tox.Tox JabberClients | 54 | -> Tox.Tox JabberClients |
55 | -> PresenceState | 55 | -> PresenceState |
56 | -> ToxManager ConnectionKey | 56 | -> ToxManager ClientAddress |
57 | toxman announcer toxbkts tox presence = ToxManager | 57 | toxman announcer toxbkts tox presence = ToxManager |
58 | { activateAccount = \k pubname seckey -> do | 58 | { activateAccount = \k pubname seckey -> do |
59 | dput XMan $ "toxman ACTIVATE " ++ show (Tox.key2id $ toPublic seckey) | 59 | dput XMan $ "toxman ACTIVATE " ++ show (Tox.key2id $ toPublic seckey) |