Cabal-syntax/src/Distribution/Parsec/Error.hs

   1 {-# LANGUAGE DeriveGeneric #-}
   2
   3 module Distribution.Parsec.Error
   4   ( PError (..)
   5   , showPError
   6   ) where
   7
   8 import Distribution.Compat.Prelude
   9 import Distribution.Parsec.Position
  10 import System.FilePath (normalise)
  11 import Prelude ()
  12
  13 -- | Parser error.
  14 data PError = PError Position String
  15   deriving (Show, Generic)
  16
  17 instance Binary PError
  18 instance NFData PError where rnf = genericRnf
  19
  20 showPError :: FilePath -> PError -> String
  21 showPError fpath (PError pos msg) =
  22   normalise fpath ++ ":" ++ showPos pos ++ ": " ++ msg