From: Pepe Iborra <mnislaih@gmail.com>
Date: Sun, 21 Jan 2007 11:06:10 +0000 (+0000)
Subject: Improve presentation of :print output
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6934648968eaff9873679365dfe50a0f281c2b6e;hp=848d28cc8df29b3ff10529dcfbc4596355935c84

Improve presentation of :print output
---

diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs
index 125d634..cb2a9ba 100644
--- a/compiler/ghci/Debugger.hs
+++ b/compiler/ghci/Debugger.hs
@@ -34,6 +34,7 @@ import GhciMonad
 import PackageConfig
 
 import Outputable
+import Pretty                    ( Mode(..), showDocWith )
 import ErrUtils
 import FastString
 import SrcLoc
@@ -83,7 +84,9 @@ pprintClosureCommand bindThings force str = do
                    else bindSuspensions cms term                         
      showterm  <- pprTerm cms term'
      unqual    <- GHC.getPrintUnqual cms
-     (putStrLn . showSDocForUser unqual) (ppr id <+> char '=' <+> showterm)
+     let showSDocForUserOneLine unqual doc = 
+             showDocWith LeftMode (doc (mkErrStyle unqual))
+     (putStrLn . showSDocForUserOneLine unqual) (ppr id <+> char '=' <+> showterm)
      -- Before leaving, we compare the type obtained to see if it's more specific
      -- Note how we need the Unknown-clear type returned by obtainTerm
      let Just reconstructedType = termType term