[commit: ghc] master: Fix ghc/ following -dppr-user-length changes (ed7dbe8)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ed7dbe82fab6e6b03273870c1663399de8dc4f39

>---------------------------------------------------------------

commit ed7dbe82fab6e6b03273870c1663399de8dc4f39
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Jun 14 17:00:44 2012 +0100

    Fix ghc/ following -dppr-user-length changes

>---------------------------------------------------------------

 ghc/GhciMonad.hs |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs
index 5cc87cf..f68d0b9 100644
--- a/ghc/GhciMonad.hs
+++ b/ghc/GhciMonad.hs
@@ -37,7 +37,6 @@ import SrcLoc
 import Module
 import ObjLink
 import Linker
-import StaticFlags
 import qualified MonadUtils
 
 import Exception
@@ -259,7 +258,7 @@ printForUserPartWay :: SDoc -> GHCi ()
 printForUserPartWay doc = do
   unqual <- GHC.getPrintUnqual
   dflags <- getDynFlags
-  liftIO $ Outputable.printForUserPartWay dflags stdout opt_PprUserLength unqual doc
+  liftIO $ Outputable.printForUserPartWay dflags stdout (pprUserLength dflags) unqual doc
 
 -- | Run a single Haskell expression
 runStmt :: String -> GHC.SingleStep -> GHCi (Maybe GHC.RunResult)