An ordered error message monad