From 1914912b1fb1163987eee378a03324b71aaf0581 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Tue, 31 Oct 2017 19:41:13 +0000 Subject: change name: defaultCryptoDataHooks --- src/Network/Tox.hs | 4 ++-- src/Network/Tox/Crypto/Handlers.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index 2f778874..70962844 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs @@ -89,7 +89,7 @@ import Crypto.Tox import Data.Word64Map (fitsInInt) import qualified Data.Word64Map (empty) import Network.Tox.Crypto.Transport (NetCrypto) -import Network.Tox.Crypto.Handlers (newSessionsState, cryptoNetHandler, cryptoDefaultHooks) +import Network.Tox.Crypto.Handlers (newSessionsState, cryptoNetHandler, defaultCryptoDataHooks) import qualified Network.Tox.DHT.Handlers as DHT import qualified Network.Tox.DHT.Transport as DHT import Network.Tox.NodeId @@ -309,7 +309,7 @@ newTox keydb addr = do (const id) roster <- newRoster - sessionsState <- newSessionsState crypto cryptoDefaultHooks + sessionsState <- newSessionsState crypto defaultCryptoDataHooks return Tox { toxDHT = dhtclient , toxOnion = onionclient diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 8a45ba64..29376e63 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -202,5 +202,5 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do _ -> error "unreachable-last2Bytes" dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3 -cryptoDefaultHooks :: Map.Map MessageType [NetCryptoHook] -cryptoDefaultHooks = Map.empty +defaultCryptoDataHooks :: Map.Map MessageType [NetCryptoHook] +defaultCryptoDataHooks = Map.empty -- cgit v1.2.3