summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/Tox.hs4
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs4
2 files changed, 4 insertions, 4 deletions
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
89import Data.Word64Map (fitsInInt) 89import Data.Word64Map (fitsInInt)
90import qualified Data.Word64Map (empty) 90import qualified Data.Word64Map (empty)
91import Network.Tox.Crypto.Transport (NetCrypto) 91import Network.Tox.Crypto.Transport (NetCrypto)
92import Network.Tox.Crypto.Handlers (newSessionsState, cryptoNetHandler, cryptoDefaultHooks) 92import Network.Tox.Crypto.Handlers (newSessionsState, cryptoNetHandler, defaultCryptoDataHooks)
93import qualified Network.Tox.DHT.Handlers as DHT 93import qualified Network.Tox.DHT.Handlers as DHT
94import qualified Network.Tox.DHT.Transport as DHT 94import qualified Network.Tox.DHT.Transport as DHT
95import Network.Tox.NodeId 95import Network.Tox.NodeId
@@ -309,7 +309,7 @@ newTox keydb addr = do
309 (const id) 309 (const id)
310 310
311 roster <- newRoster 311 roster <- newRoster
312 sessionsState <- newSessionsState crypto cryptoDefaultHooks 312 sessionsState <- newSessionsState crypto defaultCryptoDataHooks
313 return Tox 313 return Tox
314 { toxDHT = dhtclient 314 { toxDHT = dhtclient
315 , toxOnion = onionclient 315 , 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
202 _ -> error "unreachable-last2Bytes" 202 _ -> error "unreachable-last2Bytes"
203 dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3 203 dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3
204 204
205cryptoDefaultHooks :: Map.Map MessageType [NetCryptoHook] 205defaultCryptoDataHooks :: Map.Map MessageType [NetCryptoHook]
206cryptoDefaultHooks = Map.empty 206defaultCryptoDataHooks = Map.empty