addError :: Doc -> ErrorM ()
addError d = ErrorM $ modify $ ((Left $ Error d) :)
addError :: Doc -> ErrorM ()
addError d = ErrorM $ modify $ ((Left $ Error d) :)
addError d = ErrorM $ modify $ ((Left $ Error d) :)