Use the addNewSessionHook, rename announceToxConnection

1 files changed, 1 insertions, 6 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 5b30a7e6..1567ef1a 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -299,13 +299,8 @@ newTox :: TVar Onion.AnnouncedKeys   -- ^ Store of announced keys we are a rende
        -> SockAddr                   -- ^ Bind-address to listen on.
        -> Maybe NetCryptoSessions    -- ^ State of all one-on-one Tox links.
        -> Maybe SecretKey            -- ^ Optional DHT secret key to use.
-       -> ( SockAddr                            -- ^ Address of remote peer.
-            -> STM Bool                         -- ^ True if connection requires a ping.
-            -> Source IO CryptoMessage          -- ^ Inbound packets.
-            -> Sink (Flush CryptoMessage) IO () -- ^ Outbound packets.
-            -> IO () )               -- ^ Action to invoke on new connections.
        -> IO Tox
-newTox keydb addr mbSessionsState suppliedDHTKey announceConnection = do
+newTox keydb addr mbSessionsState suppliedDHTKey = do
     udp <- {- addVerbosity <$> -} udpTransport addr
     (crypto0,sessionsState) <- case mbSessionsState of
                                  Nothing -> do