On Fri, Dec 02, 2005 at 03:20:20PM +0000, Joel Reymont wrote: > The rest of the relevant code is below. Please let me know if it can > be simplified or made more robust. > > maybeFreeSSL :: MaybeSSL -> IO () > maybeFreeSSL tmv = > do putStrLn $ "maybeFreeSSL invoked" > mssl <- atomically $ swapTMVar tmv Nothing > case mssl of > Nothing -> return () > Just (ssl, _, _) -> do sslFree ssl > sslFree ssl
It should suffice to sslFree ssl once ;-) I think you forgot to remove it after testing. Best regards Tomasz -- I am searching for a programmer who is good at least in some of [Haskell, ML, C++, Linux, FreeBSD, math] for work in Warsaw, Poland _______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
