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/Tc/Gen/Expr.hs | |
| parent | 4e9c64e654f6542aff51606a13ca866f58410755 (diff) | |
| download | haskell-36c56e5c25e0e95d1e155e96e324e109cadfcef0.tar.gz | |
something good in sightwip/expand-do
Diffstat (limited to 'compiler/GHC/Tc/Gen/Expr.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Expr.hs b/compiler/GHC/Tc/Gen/Expr.hs index fb9a0630d2..615e763d5e 100644 --- a/compiler/GHC/Tc/Gen/Expr.hs +++ b/compiler/GHC/Tc/Gen/Expr.hs @@ -1276,7 +1276,7 @@ desugarRecordUpd record_expr possible_parents rbnds res_ty ds_expr = HsLet noExtField noHsTok let_binds noHsTok (L gen case_expr) case_expr :: HsExpr GhcRn - case_expr = HsCase noExtField record_expr (mkMatchGroup Generated (wrapGenSpan matches)) + case_expr = HsCase noExtField record_expr (mkMatchGroup (Generated OtherExpansion) (wrapGenSpan matches)) matches :: [LMatch GhcRn (LHsExpr GhcRn)] matches = map make_pat relevant_cons |