Fixed ambiguous type error.

2 files changed, 3 insertions, 2 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 79bd68ac..87835769 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -314,7 +314,7 @@ newTox keydb addr = do
         { toxDHT = dhtclient
         , toxOnion = onionclient
         , toxToRoute = onInbound (updateRoster roster) dtacrypt
-        , toxCrypto = addHandler (reportParseError $ printErrors stderr) (cryptoNetHandler sessionsState) cryptonet
+        , toxCrypto = addHandler (hPutStrLn stderr) (cryptoNetHandler sessionsState) cryptonet
         , toxCryptoKeys = crypto
         , toxRouting = routing
         , toxTokens = toks
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