diff options
Diffstat (limited to 'compiler/deSugar/MatchLit.hs')
| -rw-r--r-- | compiler/deSugar/MatchLit.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/deSugar/MatchLit.hs b/compiler/deSugar/MatchLit.hs index 4e6b8aac53..8fe1b05383 100644 --- a/compiler/deSugar/MatchLit.hs +++ b/compiler/deSugar/MatchLit.hs @@ -43,8 +43,9 @@ import BasicTypes import DynFlags import Util import FastString -import Control.Monad +import qualified GHC.LanguageExtensions as LangExt +import Control.Monad import Data.Int #if __GLASGOW_HASKELL__ < 709 import Data.Traversable (traverse) @@ -184,7 +185,7 @@ warnAboutOverflowedLiterals dflags lit maxB = toInteger (maxBound :: a) sug | minB == -i -- Note [Suggest NegativeLiterals] , i > 0 - , not (xopt Opt_NegativeLiterals dflags) + , not (xopt LangExt.NegativeLiterals dflags) = ptext (sLit "If you are trying to write a large negative literal, use NegativeLiterals") | otherwise = Outputable.empty |