addWarning :: Doc -> ErrorM ()
addWarning d = ErrorM $ modify $ ((Right $ Warning d) :)
addWarning :: Doc -> ErrorM ()
addWarning d = ErrorM $ modify $ ((Right $ Warning d) :)
addWarning d = ErrorM $ modify $ ((Right $ Warning d) :)