diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-14 17:00:44 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-14 17:00:44 +0100 |
| commit | ed7dbe82fab6e6b03273870c1663399de8dc4f39 (patch) | |
| tree | 346a3ad1de9f46956a805fc00b036d32d0cd0302 /ghc/GhciMonad.hs | |
| parent | fd86aca8f56129992ba17419628aaed2f6d061ff (diff) | |
| download | haskell-ed7dbe82fab6e6b03273870c1663399de8dc4f39.tar.gz | |
Fix ghc/ following -dppr-user-length changes
Diffstat (limited to 'ghc/GhciMonad.hs')
| -rw-r--r-- | ghc/GhciMonad.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index 5cc87cf02e..f68d0b9a55 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) |