diff options
| author | Apoorv Ingle <apoorv-ingle@uiowa.edu> | 2023-05-05 22:31:51 -0500 |
|---|---|---|
| committer | Apoorv Ingle <apoorv-ingle@uiowa.edu> | 2023-05-07 21:57:54 -0500 |
| commit | 36c56e5c25e0e95d1e155e96e324e109cadfcef0 (patch) | |
| tree | d53b27560c4efa3ad121dcaf606ccfec6665078c /compiler/GHC/HsToCore/Docs.hs | |
| parent | 4e9c64e654f6542aff51606a13ca866f58410755 (diff) | |
| download | haskell-wip/expand-do.tar.gz | |
something good in sightwip/expand-do
Diffstat (limited to 'compiler/GHC/HsToCore/Docs.hs')
| -rw-r--r-- | compiler/GHC/HsToCore/Docs.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Docs.hs b/compiler/GHC/HsToCore/Docs.hs index 40771d4998..ff127267d1 100644 --- a/compiler/GHC/HsToCore/Docs.hs +++ b/compiler/GHC/HsToCore/Docs.hs @@ -346,10 +346,10 @@ subordinates env instMap decl = case decl of data_fams = do DataFamInstDecl { dfid_eqn = (FamEqn { feqn_tycon = L l _ - , feqn_rhs = defn } :: FamEqn GhcRn (HsDataDefn GhcRn))} <- unLoc <$> cid_datafam_insts d + , feqn_rhs = defn })} <- unLoc <$> cid_datafam_insts d [ (n, [], IM.empty) | Just n <- [lookupSrcSpan (locA l) instMap] ] ++ dataSubs defn ty_fams = do - TyFamInstDecl { tfid_eqn = (FamEqn { feqn_tycon = L l _ } :: FamEqn GhcRn (LHsType GhcRn)) } <- unLoc <$> cid_tyfam_insts d + TyFamInstDecl { tfid_eqn = (FamEqn { feqn_tycon = L l _ }) } <- unLoc <$> cid_tyfam_insts d [ (n, [], IM.empty) | Just n <- [lookupSrcSpan (locA l) instMap] ] in data_fams ++ ty_fams |