Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (13 sloc) 307 Bytes
import Control.Concurrent.STM
import GHC.Conc (unsafeIOToSTM)
launchTorpedoes :: IO ()
launchTorpedoes = undefined
doStuff :: STM ()
doStuff = undefined
mightRetry :: STM ()
mightRetry = undefined
notActuallyAtomic :: STM ()
notActuallyAtomic = do
doStuff
unsafeIOToSTM launchTorpedoes
mightRetry