summaryrefslogtreecommitdiff
path: root/ToxManager.hs
diff options
context:
space:
mode:
Diffstat (limited to 'ToxManager.hs')
-rw-r--r--ToxManager.hs4
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
26import Presence 26import Presence
27import Text.Read 27import Text.Read
28import ToxToXMPP 28import ToxToXMPP
29import XMPPServer (ConnectionKey) 29import XMPPServer (ClientAddress)
30import DPut 30import 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
57toxman announcer toxbkts tox presence = ToxManager 57toxman 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)