projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Try to manage the size of the text rendered for ':show bindings'
[ghc-hetmet.git]
/
compiler
/
ghci
/
GhciMonad.hs
diff --git
a/compiler/ghci/GhciMonad.hs
b/compiler/ghci/GhciMonad.hs
index
c92c4e0
..
30096ab
100644
(file)
--- a/
compiler/ghci/GhciMonad.hs
+++ b/
compiler/ghci/GhciMonad.hs
@@
-6,11
+6,11
@@
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
-{-# OPTIONS_GHC -w #-}
+{-# OPTIONS -w #-}
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
-- The above warning supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See
--- http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
-- for details
module GhciMonad where
-- for details
module GhciMonad where
@@
-18,7
+18,7
@@
module GhciMonad where
#include "HsVersions.h"
import qualified GHC
#include "HsVersions.h"
import qualified GHC
-import Outputable hiding (printForUser)
+import Outputable hiding (printForUser, printForUserPartWay)
import qualified Outputable
import Panic hiding (showException)
import Util
import qualified Outputable
import Panic hiding (showException)
import Util
@@
-27,6
+27,7
@@
import HscTypes
import SrcLoc
import Module
import ObjLink
import SrcLoc
import Module
import ObjLink
+import StaticFlags
import Data.Maybe
import Numeric
import Data.Maybe
import Numeric
@@
-169,6
+170,12
@@
printForUser doc = do
unqual <- io (GHC.getPrintUnqual session)
io $ Outputable.printForUser stdout unqual doc
unqual <- io (GHC.getPrintUnqual session)
io $ Outputable.printForUser stdout unqual doc
+printForUserPartWay :: SDoc -> GHCi ()
+printForUserPartWay doc = do
+ session <- getSession
+ unqual <- io (GHC.getPrintUnqual session)
+ io $ Outputable.printForUserPartWay stdout opt_PprUserLength unqual doc
+
-- --------------------------------------------------------------------------
-- timing & statistics
-- --------------------------------------------------------------------------
-- timing & statistics