BsMonadExtensions.A
module I: { ... };
let liftA1: ('a => 'b) => Monad.t('a) => Monad.t('b);
let when_: bool => Monad.t(unit) => Monad.t(unit);
let unless: bool => Monad.t(unit) => Monad.t(unit);