OptionT MonadTell and MonadListen instances