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