From 0d61f866b43d3385be3a8521ba24503c13e8d404 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Sun, 31 May 2020 23:32:00 +0100 Subject: Expunge GhcTcId GHC.Hs.Extension had type GhcPs = GhcPass 'Parsed type GhcRn = GhcPass 'Renamed type GhcTc = GhcPass 'Typechecked type GhcTcId = GhcTc The last of these, GhcTcId, is a vestige of the past. This patch expunges it from GHC. --- compiler/GHC/Tc/Gen/Match.hs-boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'compiler/GHC/Tc/Gen/Match.hs-boot') diff --git a/compiler/GHC/Tc/Gen/Match.hs-boot b/compiler/GHC/Tc/Gen/Match.hs-boot index 6b363511c8..692d04b884 100644 --- a/compiler/GHC/Tc/Gen/Match.hs-boot +++ b/compiler/GHC/Tc/Gen/Match.hs-boot @@ -5,13 +5,13 @@ import GHC.Types.Name ( Name ) import GHC.Tc.Utils.TcType( ExpSigmaType, TcRhoType ) import GHC.Tc.Types ( TcM ) import GHC.Types.SrcLoc ( Located ) -import GHC.Hs.Extension ( GhcRn, GhcTcId ) +import GHC.Hs.Extension ( GhcRn, GhcTc ) tcGRHSsPat :: GRHSs GhcRn (LHsExpr GhcRn) -> TcRhoType - -> TcM (GRHSs GhcTcId (LHsExpr GhcTcId)) + -> TcM (GRHSs GhcTc (LHsExpr GhcTc)) tcMatchesFun :: Located Name -> MatchGroup GhcRn (LHsExpr GhcRn) -> ExpSigmaType - -> TcM (HsWrapper, MatchGroup GhcTcId (LHsExpr GhcTcId)) + -> TcM (HsWrapper, MatchGroup GhcTc (LHsExpr GhcTc)) -- cgit v1.2.1