{-# OPTIONS_GHC -Wall #-} {-# LANGUAGE CPP #-} ----------------------------------------------------------------------------- -- | -- Module : ToySolver.Data.MIP.FileUtils -- Copyright : (c) Masahiro Sakai 2018 -- License : BSD-style -- -- Maintainer : masahiro.sakai@gmail.com -- Stability : provisional -- Portability : portable -- ----------------------------------------------------------------------------- module ToySolver.Data.MIP.FileUtils ( ParseError ) where #if MIN_VERSION_megaparsec(6,0,0) import Data.Void #endif import qualified Text.Megaparsec as MP #if MIN_VERSION_megaparsec(7,0,0) type ParseError s = MP.ParseErrorBundle s Void #elif MIN_VERSION_megaparsec(6,0,0) type ParseError s = MP.ParseError (MP.Token s) Void #elif MIN_VERSION_megaparsec(5,0,0) type ParseError s = MP.ParseError (MP.Token s) MP.Dec #else type ParseError s = MP.ParseError #endif