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 return CertificateUsageAccept
} }
ctx <- connectionClient s p params rng ctx <- connectionClient s p params rng
handshake ctx _ <- handshake ctx
bye ctx bye ctx
r <- readIORef ref r <- readIORef ref
case r of case r of