Expose enabled language extensions to TH
[ghc.git] / compiler / deSugar / DsMonad.hs
index 20bae1f..befad44 100644 (file)
@@ -72,6 +72,7 @@ import FastString
 import Maybes
 import Var (EvVar)
 import GHC.Fingerprint
+import qualified GHC.LanguageExtensions as LangExt
 
 import Data.IORef
 import Control.Monad
@@ -208,7 +209,7 @@ initDs hsc_env mod rdr_env type_env fam_inst_env thing_inside
              else thing_inside
            }
 
-    checkLoadDAP = do { paEnabled <- xoptM Opt_ParallelArrays
+    checkLoadDAP = do { paEnabled <- xoptM LangExt.ParallelArrays
                       ; return $ paEnabled &&
                                  mod /= gHC_PARR' &&
                                  moduleName mod /= dATA_ARRAY_PARALLEL_NAME