showWarnings :: [Warning] -> String
showWarnings warns = render $ vcat (fmap warningDoc warns)
showWarnings :: [Warning] -> String
showWarnings warns = render $ vcat (fmap warningDoc warns)
showWarnings warns = render $ vcat (fmap warningDoc warns)