change name: defaultCryptoDataHooks

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
 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