diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2018-12-18 23:36:29 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2019-01-18 17:01:56 -0500 |
| commit | c9756dbf1ee58b117ea5c4ded45dea88030efd65 (patch) | |
| tree | 66aa32d9fdc0303c3b15f3fdb9605e30d8aa2449 /compiler/parser/Lexer.x | |
| parent | b14f54041eacf8c0f85e756148042d2dca8333f9 (diff) | |
| download | haskell-c9756dbf1ee58b117ea5c4ded45dea88030efd65.tar.gz | |
Prepare source-tree for base-4.13 MFP bump
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index c64c0173e8..c4d0d4d127 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -41,6 +41,7 @@ -- Alex "Haskell code fragment top" { +{-# LANGUAGE CPP #-} {-# LANGUAGE BangPatterns #-} {-# LANGUAGE LambdaCase #-} @@ -2015,9 +2016,11 @@ instance Applicative P where instance Monad P where (>>=) = thenP +#if !MIN_VERSION_base(4,13,0) fail = MonadFail.fail +#endif -instance MonadFail P where +instance MonadFail.MonadFail P where fail = failP returnP :: a -> P a |