diff options
| author | Pepe Iborra <mnislaih@gmail.com> | 2007-12-19 17:44:31 +0000 |
|---|---|---|
| committer | Pepe Iborra <mnislaih@gmail.com> | 2007-12-19 17:44:31 +0000 |
| commit | ddb4c07d9b3bd50eb95edbf121745fb9c6306638 (patch) | |
| tree | ccea65045a10f889e0841262bb5a407bf7d2d723 /compiler/ghci/Debugger.hs | |
| parent | a27c5f77da8b3b3f00f9902b69a504460f234e8c (diff) | |
| download | haskell-ddb4c07d9b3bd50eb95edbf121745fb9c6306638.tar.gz | |
Fix rendering of references in :print under -fprint-evld-with-show flag
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index e13b8a809a..b5347dc1bb 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -177,7 +177,6 @@ showTerm cms@(Session ref) term = do GHC.setSessionDynFlags cms dflags cPprShowable prec NewtypeWrap{ty=new_ty,wrapped_term=t} = cPprShowable prec t{ty=new_ty} - cPprShowable prec RefWrap{wrapped_term=t} = cPprShowable prec t cPprShowable _ _ = return Nothing needsParens ('"':_) = False -- some simple heuristics to see whether parens |