From: Pepe Iborra <mnislaih@gmail.com>
Date: Wed, 19 Dec 2007 17:44:31 +0000 (+0000)
Subject: Fix rendering of references in :print under -fprint-evld-with-show flag
X-Git-Tag: 2008-05-28~401
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ddb4c07d9b3bd50eb95edbf121745fb9c6306638

Fix rendering of references in :print under -fprint-evld-with-show flag
---

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index e13b8a8..b5347dc 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