import SrcLoc ( SrcSpan, noSrcLoc, interactiveSrcLoc, srcLocSpan, noSrcSpan, unLoc )
import VarSet
import VarEnv ( emptyTidyEnv )
+import Panic
#endif
import Id ( Id )
hsc_FC = fc_var,
hsc_MLC = mlc_var,
hsc_OptFuel = optFuel,
- hsc_type_env_var = Nothing,
- hsc_global_rdr_env = emptyGlobalRdrEnv,
- hsc_global_type_env = emptyNameEnv } ) }
+ hsc_type_env_var = Nothing } ) }
knownKeyNames :: [Name] -- Put here to avoid loops involving DsMeta,
compileExpr hsc_env srcspan ds_expr
| rtsIsProfiled
- = panic "You can't call compileExpr in a profiled compiler"
+ = throwIO (InstallationError "You can't call compileExpr in a profiled compiler")
-- Otherwise you get a seg-fault when you run it
| otherwise