From 795986aaf33e2ffc233836b86a92a77366c91db2 Mon Sep 17 00:00:00 2001 From: Ryan Scott Date: Tue, 24 Sep 2019 10:32:05 -0400 Subject: Remove unneeded CPP now that GHC 8.6 is the minimum The minimum required GHC version for bootstrapping is 8.6, so we can get rid of some unneeded `#if `__GLASGOW_HASKELL__` CPP guards, as well as one `MIN_VERSION_ghc_prim(0,5,3)` guard (since GHC 8.6 bundles `ghc-prim-0.5.3`). --- utils/genprimopcode/ParserM.hs | 7 ------- 1 file changed, 7 deletions(-) (limited to 'utils/genprimopcode') diff --git a/utils/genprimopcode/ParserM.hs b/utils/genprimopcode/ParserM.hs index 1691bbaefb..e98d6bb11a 100644 --- a/utils/genprimopcode/ParserM.hs +++ b/utils/genprimopcode/ParserM.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} module ParserM ( -- Parser Monad ParserM(..), AlexInput, run_parser, @@ -20,12 +19,8 @@ module ParserM ( import Control.Applicative -#if __GLASGOW_HASKELL__ >= 806 import Prelude hiding (fail) import Control.Monad.Fail (MonadFail (..)) -#else -import Prelude -#endif import Control.Monad (ap, liftM) import Data.Word (Word8) @@ -50,9 +45,7 @@ instance Monad ParserM where Left err return a = ParserM $ \i s -> Right (i, s, a) -#if __GLASGOW_HASKELL__ >= 806 instance MonadFail ParserM where -#endif fail err = ParserM $ \_ _ -> Left err run_parser :: ParserM a -> (String -> Either String a) -- cgit v1.2.1