Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement