summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorRyan Scott <ryan.gl.scott@gmail.com>2019-09-24 10:32:05 -0400
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-09-25 13:56:07 -0400
commit795986aaf33e2ffc233836b86a92a77366c91db2 (patch)
tree585a901153899c50bfced5a91f605dafa2c3fd7c /utils
parentd90d0bade05fa63b81fe68d42c4242dd97c46e77 (diff)
downloadhaskell-795986aaf33e2ffc233836b86a92a77366c91db2.tar.gz
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`).
Diffstat (limited to 'utils')
-rw-r--r--utils/genprimopcode/ParserM.hs7
1 files changed, 0 insertions, 7 deletions
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)