{-# LANGUAGE Safe #-}

-----------------------------------------------------------------------------
-- |
-- Module      :  Text.ParserCombinators.Parsec.Error
-- Copyright   :  (c) Paolo Martini 2007
-- License     :  BSD-style (see the LICENSE file)
--
-- Maintainer  :  [email protected]
-- Stability   :  provisional
-- Portability :  portable
--
-- Parsec compatibility module
--
-----------------------------------------------------------------------------

module Text.ParserCombinators.Parsec.Error
    ( Message (SysUnExpect,UnExpect,Expect,Message),
      messageString,
      messageCompare,
      messageEq,
      ParseError,
      errorPos,
      errorMessages,
      errorIsUnknown,
      showErrorMessages,
      newErrorMessage,
      newErrorUnknown,
      addErrorMessage,
      setErrorPos,
      setErrorMessage,
      mergeError
    ) where

import Text.Parsec.Error


messageCompare :: Message -> Message -> Ordering
messageCompare = compare

messageEq :: Message -> Message -> Bool
messageEq = (==)