showLexerWarnings :: [LexerWarning] -> String
showLexerWarnings ws = intercalate "\n-----------\n" $ map showWarning ws
            where showWarning (LexerWarning pos info) = "Warning: " ++
                    intercalate "\n" (showLexerWarningInfo info) ++ " " ++ show pos
showLexerWarnings :: [LexerWarning] -> String
showLexerWarnings ws = intercalate "\n-----------\n" $ map showWarning ws
            where showWarning (LexerWarning pos info) = "Warning: " ++
                    intercalate "\n" (showLexerWarningInfo info) ++ " " ++ show pos
showLexerWarnings ws = intercalate "\n-----------\n" $ map showWarning ws
            where showWarning (LexerWarning pos info) = "Warning: " ++
                    intercalate "\n" (showLexerWarningInfo info) ++ " " ++ show pos