diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-02-24 20:59:43 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-02-26 15:10:58 -0500 |
| commit | 817f93eac4d13f680e8e3e7a25eb403b1864f82e (patch) | |
| tree | f7014721e49627f15d76f44a5bf663043e35fafc /ghc | |
| parent | b2b49a0aad353201678970c76d8305a5dcb1bfab (diff) | |
| download | haskell-817f93eac4d13f680e8e3e7a25eb403b1864f82e.tar.gz | |
Modules: Core (#13009)
Update haddock submodule
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 |