ignore value.

This commit is contained in:
Vincent Hanquez 2011-11-23 21:35:58 +00:00
parent e454baf99a
commit 3117e468b0

View file

@ -26,7 +26,7 @@ openConnection s p = do
return CertificateUsageAccept
}
ctx <- connectionClient s p params rng
handshake ctx
_ <- handshake ctx
bye ctx
r <- readIORef ref
case r of