Fixed ambiguous type error.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index f2c792cd..29f55e54 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -46,6 +46,7 @@ data HandshakeParams
 newHandShakeData :: TransportCrypto -> HandshakeParams -> HandshakeData
 newHandShakeData = error "todo"
 
+cryptoNetHandler :: NetCryptoSessions -> SockAddr -> NetCrypto -> IO (Maybe (NetCrypto -> NetCrypto))
 cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) nonce24 encrypted)) = do
     let crypto = transportCrypto sessions
         allsessions = netCryptoSessions sessions
@@ -122,4 +123,4 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do
     -- Handle Encrypted Message
     -- TODO
     return Nothing
-cryptoNetHandlerr _ _ _ = return id
+-- cryptoNetHandler _ _ _ = return $ Just id