showErrors :: Errors -> String
showErrors a = render $ vcat (fmap errorDoc errs) $+$ vcat (fmap warningDoc warns)
  where
    (errs, warns) = partitionEithers a

-- #TODO maybe add a particular type of error for compiler errors (to make it easier to quickcheck that they are never generated)
showErrors :: Errors -> String
showErrors a = render $ vcat (fmap errorDoc errs) $+$ vcat (fmap warningDoc warns)
  where
    (errs, warns) = partitionEithers a

-- #TODO maybe add a particular type of error for compiler errors (to make it easier to quickcheck that they are never generated)
showErrors a = render $ vcat (fmap errorDoc errs) $+$ vcat (fmap warningDoc warns)
  where
    (errs, warns) = partitionEithers a

-- #TODO maybe add a particular type of error for compiler errors (to make it easier to quickcheck that they are never generated)