fixed state handling in view Monad instance