Using 1.13.7
$ echo 'x >>= fun y -> y >>= fun z -> a' | refmt --parse=ml --print=re -w 10
x
>>= (
fun
y =>
y
>>= (
fun z => a
)
);Using master from a few days ago
$ echo 'x >>= fun y -> y >>= fun z -> a' | refmt --parse=ml --print=re -w 10
x
>>= (
(y) =>
y
>>= (
(z) => a
)
);