projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't use RelaxedPolyRec in the compiler; it's built in now
[ghc-hetmet.git]
/
compiler
/
ghci
/
Debugger.hs
diff --git
a/compiler/ghci/Debugger.hs
b/compiler/ghci/Debugger.hs
index
64c1917
..
504dc1d
100644
(file)
--- a/
compiler/ghci/Debugger.hs
+++ b/
compiler/ghci/Debugger.hs
@@
-20,18
+20,18
@@
import Id
import Name
import Var hiding ( varName )
import VarSet
import Name
import Var hiding ( varName )
import VarSet
-import Name
+-- import Name
import UniqSupply
import TcType
import GHC
import UniqSupply
import TcType
import GHC
-import DynFlags
+-- import DynFlags
import InteractiveEval
import Outputable
import InteractiveEval
import Outputable
-import SrcLoc
+-- import SrcLoc
import PprTyThing
import MonadUtils
import PprTyThing
import MonadUtils
-import Exception
+-- import Exception
import Control.Monad
import Data.List
import Data.Maybe
import Control.Monad
import Data.List
import Data.Maybe
@@
-171,7
+171,7
@@
showTerm term = do
-- with the changed error handling and logging?
let noop_log _ _ _ _ = return ()
expr = "show " ++ showSDoc (ppr bname)
-- 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
txt_ <- withExtendedLinkEnv [(bname, val)]
(GHC.compileExpr expr)
let myprec = 10 -- application precedence. TODO Infix constructors