From 4188bfddf8ffb547122f08bb70b11d7f16c56220 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 31 Oct 2017 00:19:12 -0400 Subject: Fixed ambiguous type error. --- src/Network/Tox/Crypto/Handlers.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Network/Tox/Crypto/Handlers.hs') 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 -- cgit v1.2.3