mvar.hs

program :: MVarM ()
program = do
  chan <- newSkipChan :: MVarM (SkipChan Int)
  fork $ void $ getSkipChan chan
  mapM_ (putSkipChan chan) [0..10]

-- "new mvar"
-- "new mvar"
-- "write to mvar"
-- "fork"
-- "read mvar"
-- "write to mvar"
-- "write to mvar"
-- "read mvar"
-- "read mvar"
-- "blocked on read"
-- "write to mvar"
-- "read mvar"
-- "blocked on read"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"
-- "read mvar"
-- "write to mvar"