diff options
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI.hs | 2 | ||||
| -rw-r--r-- | ghc/GHCi/UI/Info.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index ef78dca036..31243edfc1 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -59,7 +59,7 @@ import Name import GHC.Driver.Packages ( trusted, getPackageDetails, getInstalledPackageDetails, listVisibleModuleNames, pprFlag ) import GHC.Iface.Syntax ( showToHeader ) -import PprTyThing +import GHC.Core.Ppr.TyThing import PrelNames import RdrName ( getGRE_NameQualifier_maybes, getRdrName ) import SrcLoc diff --git a/ghc/GHCi/UI/Info.hs b/ghc/GHCi/UI/Info.hs index 7f65cf11c9..5ec1ca76a4 100644 --- a/ghc/GHCi/UI/Info.hs +++ b/ghc/GHCi/UI/Info.hs @@ -31,7 +31,7 @@ import Data.Time import Prelude hiding (mod,(<>)) import System.Directory -import qualified CoreUtils +import qualified GHC.Core.Utils import GHC.HsToCore import GHC.Driver.Session (HasDynFlags(..)) import FastString @@ -334,7 +334,7 @@ processAllTypeCheckedModule tcm = do getTypeLHsExpr e = do hs_env <- getSession (_,mbe) <- liftIO $ deSugarExpr hs_env e - return $ fmap (\expr -> (mid, getLoc e, CoreUtils.exprType expr)) mbe + return $ fmap (\expr -> (mid, getLoc e, GHC.Core.Utils.exprType expr)) mbe where mid :: Maybe Id mid | HsVar _ (L _ i) <- unwrapVar (unLoc e) = Just i |