Commit 6c77dddd authored by wz1000's avatar wz1000

fix duplicate definitions arising from rebase error

parent 7e491829
Pipeline #16973 failed with stages
in 18 minutes and 49 seconds
......@@ -505,21 +505,6 @@ instance HasRealDataConName GhcTc where
getRealDataCon RecordConTc{rcon_con_like = con} (L sp var) =
L sp (setVarName var (conLikeName con))
{- Note [Real DataCon Name]
The typechecker subtitutes the conLikeWrapId for the name, but we don't want
this showing up in the hieFile, so we replace the name in the Id with the
original datacon name
See also Note [Data Constructor Naming]
-}
class HasRealDataConName p where
getRealDataCon :: XRecordCon p -> Located (IdP p) -> Located (IdP p)
instance HasRealDataConName GhcRn where
getRealDataCon _ n = n
instance HasRealDataConName GhcTc where
getRealDataCon RecordConTc{rcon_con_like = con} (L sp var) =
L sp (setVarName var (conLikeName con))
-- | The main worker class
-- See Note [Updating HieAst for changes in the GHC AST] for more information
-- on how to add/modify instances for this.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment