Re: [Haskell-cafe] STM commit hooks

Missed this reply. My bad and apologies to Simon. Einar, did it work for you? On Dec 2, 2005, at 11:15 AM, Simon Marlow wrote:

How about this:

log_lock <- newTMVar ()

atomically3 h act = do atomically (do act; takeTMVar log_lock `orElse` abort h) hPrint h Commit atomically (putTMVar log_lock ())

does that work?

-- http://wagerlabs.com/