megaparsec-5.0.0: old-tests/Util.hs

module Util where

import Text.Megaparsec
import Text.Megaparsec.String (Parser)

-- | Returns the error messages associated with a failed parse.

parseErrors :: Parser a -> String -> [String]
parseErrors p input =
  case parse p "" input of
    Left err -> drop 1 $ lines $ parseErrorPretty err
    Right _  -> []