1{-# LANGUAGE BlockArguments #-}
2module BlockArguments where
3
4foo = when (x > 0) do
5  print x
6  exitFailure
7
8bar = withForeignPtr fptr \ptr -> c_memcpy buf ptr size
9
10baz arg1 arg2 arg3 arg4 = initialValue
11  &   someFunction arg1 arg2
12  >>= traverse \(x, y) -> do
13        a <- f x
14        b <- g y
15        h a b
16  >>= anotherFunction arg3 arg4
17