Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ed7dbe82fab6e6b03273870c1663399de8dc4f39 >--------------------------------------------------------------- commit ed7dbe82fab6e6b03273870c1663399de8dc4f39 Author: Ian Lynagh <[email protected]> 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) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
