X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FDebugger.hs;h=cb2a9bac7309bc8eac2a9f5b429f018019c60938;hb=6934648968eaff9873679365dfe50a0f281c2b6e;hp=125d634d70d6eafa86f694626dfebd92ad83de53;hpb=01314483b22813020e4746cc32d97a0f9fb6e806;p=ghc-hetmet.git

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