errorsFound :: DynFlags -> Messages -> Bool
-- The dyn-flags are used to see if the user has specified
errorsFound :: DynFlags -> Messages -> Bool
-- The dyn-flags are used to see if the user has specified
errorsFound dflags (warns, errs)
| dopt Opt_WarnIsError dflags = not (isEmptyBag errs) || not (isEmptyBag warns)
| otherwise = not (isEmptyBag errs)
errorsFound dflags (warns, errs)
| dopt Opt_WarnIsError dflags = not (isEmptyBag errs) || not (isEmptyBag warns)
| otherwise = not (isEmptyBag errs)