yogsototh/hs-tls
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

append actual raised exception in the error.

Browse source
This commit is contained in:
Vincent Hanquez 2011-12-01 08:36:56 +00:00
parent 3bdad41e21
commit eba62f6f74
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Network/TLS/Core.hs
View file

@ -522,7 +522,7 @@ handshake ctx = do
handleException f = catch (f >> return True) (\e -> handler e >> return False)
handler e = case fromException e of
Just err -> sendPacket ctx (errorToAlert err)
Nothing -> sendPacket ctx (errorToAlert $ Error_Misc "")
Nothing -> sendPacket ctx (errorToAlert $ Error_Misc $ show e)
-- | sendData sends a bunch of data.
-- It will automatically chunk data to acceptable packet size