blob: d00b3a0716ba2e5bc15f4523a8e86ff7a2af1377 [file] [edit]
do
let a ← liftM m
pure a.val : ReaderT Int IO Nat
do
let a ← m
pure a.val : EIO IO.Error Nat