import SrcLoc ( SrcSpan, noSrcLoc, interactiveSrcLoc, srcLocSpan, noSrcSpan, unLoc )
import VarSet
import VarEnv ( emptyTidyEnv )
+import Panic
#endif
import Id ( Id )
compileExpr :: HscEnv -> SrcSpan -> CoreExpr -> IO HValue
compileExpr hsc_env srcspan ds_expr
+ | rtsIsProfiled
+ = throwIO (InstallationError "You can't call compileExpr in a profiled compiler")
+ -- Otherwise you get a seg-fault when you run it
+
+ | otherwise
= do { let { dflags = hsc_dflags hsc_env ;
lint_on = dopt Opt_DoCoreLinting dflags }