import Name
import Var hiding ( varName )
import VarSet
-import Name
+-- import Name
import UniqSupply
import TcType
import GHC
-import DynFlags
+-- import DynFlags
import InteractiveEval
import Outputable
-import SrcLoc
+-- import SrcLoc
import PprTyThing
import MonadUtils
-import Exception
+-- import Exception
import Control.Monad
import Data.List
import Data.Maybe
-- with the changed error handling and logging?
let noop_log _ _ _ _ = return ()
expr = "show " ++ showSDoc (ppr bname)
- GHC.setSessionDynFlags dflags{log_action=noop_log}
+ _ <- GHC.setSessionDynFlags dflags{log_action=noop_log}
txt_ <- withExtendedLinkEnv [(bname, val)]
(GHC.compileExpr expr)
let myprec = 10 -- application precedence. TODO Infix constructors