@@ -753,7 +753,11 @@ prettyPrintMultipleErrors full = renderBox . prettyPrintMultipleErrorsBox full
753753-- Pretty print multiple warnings
754754--
755755prettyPrintMultipleWarnings :: Bool -> MultipleErrors -> String
756−prettyPrintMultipleWarnings full = renderBox . flip evalState M.empty . prettyPrintMultipleErrorsWith Warning "Warning found:" "Multiple warnings found:" full
756+prettyPrintMultipleWarnings full = renderBox . prettyPrintMultipleWarningsBox full
757+
758+-- | Pretty print warnings as a Box
759+prettyPrintMultipleWarningsBox :: Bool -> MultipleErrors -> Box.Box
760+prettyPrintMultipleWarningsBox full = flip evalState M.empty . prettyPrintMultipleErrorsWith Warning "Warning found:" "Multiple warnings found:" full
757761
758762-- | Pretty print errors as a Box
759763prettyPrintMultipleErrorsBox :: Bool -> MultipleErrors -> Box.Box