summaryrefslogtreecommitdiff
path: root/compiler/main/HscMain.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/main/HscMain.hs')
-rw-r--r--compiler/main/HscMain.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs
index 5ae104b1da..0acbdff8a5 100644
--- a/compiler/main/HscMain.hs
+++ b/compiler/main/HscMain.hs
@@ -90,7 +90,9 @@ import BasicTypes ( HValue )
import ByteCodeGen ( byteCodeGen, coreExprToBCOs )
import Linker
import CoreTidy ( tidyExpr )
-import Type ( Type, Kind )
+import Type ( Type )
+import PrelNames
+import {- Kind parts of -} Type ( Kind )
import CoreLint ( lintInteractiveExpr )
import VarEnv ( emptyTidyEnv )
import Panic
@@ -99,6 +101,7 @@ import ConLike
import GHC.Exts
#endif
+import DsMeta ( templateHaskellNames )
import Module
import Packages
import RdrName
@@ -189,6 +192,12 @@ newHscEnv dflags = do
hsc_type_env_var = Nothing }
+knownKeyNames :: [Name] -- Put here to avoid loops involving DsMeta,
+knownKeyNames = -- where templateHaskellNames are defined
+ map getName wiredInThings
+ ++ basicKnownKeyNames
+ ++ templateHaskellNames
+
-- -----------------------------------------------------------------------------
getWarnings :: Hsc WarningMessages