Advertisement
Guest User

Untitled

a guest
Jun 21st, 2018
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. withScope $ \scope1 -> do
  2.   res1 <- acquire scope1 createR1 destroyR1
  3.   res2 <- acquire scope1 createR2 destroyR2
  4.   res4 <-
  5.     withScope $ \scope2 -> do
  6.       res3 <- acquire scope2 createR3 destroyR3
  7.       acquire scope1 (createR4 res3) destroyR4
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement