diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 01:14:29 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 01:14:29 +0100 |
| commit | 6f2f83800dd89af67cbf6de4d9b2afda4af0938f (patch) | |
| tree | 0e357bd864d496468a315f0819fccf1abf36c316 /ghc/GhciMonad.hs | |
| parent | 8685576a3a1802e98480d74beecf7c8450363907 (diff) | |
| download | haskell-6f2f83800dd89af67cbf6de4d9b2afda4af0938f.tar.gz | |
Build fixes
Diffstat (limited to 'ghc/GhciMonad.hs')
| -rw-r--r-- | ghc/GhciMonad.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index 3dc69eeab2..c6eb619995 100644 --- a/ghc/GhciMonad.hs +++ b/ghc/GhciMonad.hs @@ -252,12 +252,14 @@ unsetOption opt printForUser :: GhcMonad m => SDoc -> m () printForUser doc = do unqual <- GHC.getPrintUnqual - MonadUtils.liftIO $ Outputable.printForUser stdout unqual doc + dflags <- getDynFlags + MonadUtils.liftIO $ Outputable.printForUser dflags stdout unqual doc printForUserPartWay :: SDoc -> GHCi () printForUserPartWay doc = do unqual <- GHC.getPrintUnqual - liftIO $ Outputable.printForUserPartWay stdout opt_PprUserLength unqual doc + dflags <- getDynFlags + liftIO $ Outputable.printForUserPartWay dflags stdout opt_PprUserLength unqual doc -- | Run a single Haskell expression runStmt :: String -> GHC.SingleStep -> GHCi (Maybe GHC.RunResult) |