remove accepting-task, and initialize toxMgr field

2 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 3324c934..4d244199 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -492,6 +492,7 @@ newTox keydb addr mbSessionsState suppliedDHTKey = do
         , toxOnionRoutes    = orouter
         , toxContactInfo    = roster
         , toxAnnounceToLan  = announceToLan sock (key2id $ transportPublic crypto)
+        , toxMgr            = mgr
         }
 
 onionTimeout :: Tox -> DHT.TransactionId -> Onion.OnionDestination RouteId -> STM (Onion.OnionDestination RouteId, Int)
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 61b2ab3c..1acc333e 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -57,6 +57,7 @@ import Text.Printf
 import Data.Bool
 import Connection (Status(..), Policy(..))
 import Connection.Tox.Threads (ToxProgress(..))
+import Network.Tox.ContactInfo
 
 type LookupPolicyFunction = Key -> STM Policy