diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-12 19:36:31 +0800 |
|---|---|---|
| committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-04-13 16:40:59 +0800 |
| commit | eeaea2df3fa585db503034f419c6e4331a4d8a84 (patch) | |
| tree | 707a2ccc7ca5b189a1b45c6e6b3688098ba31d09 /compiler/deSugar/DsArrows.lhs | |
| parent | 7fa0b43593644fba8a3a60e5503a55268578d3c0 (diff) | |
| download | haskell-eeaea2df3fa585db503034f419c6e4331a4d8a84.tar.gz | |
Instead of tracking Origin in LHsBindsLR, track it in MatchGroup
Diffstat (limited to 'compiler/deSugar/DsArrows.lhs')
| -rw-r--r-- | compiler/deSugar/DsArrows.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs index 763106f2b3..f87877681c 100644 --- a/compiler/deSugar/DsArrows.lhs +++ b/compiler/deSugar/DsArrows.lhs @@ -517,7 +517,7 @@ case bodies, containing the following fields: \begin{code} dsCmd ids local_vars stack_ty res_ty - (HsCmdCase exp (MG { mg_alts = matches, mg_arg_tys = arg_tys })) + (HsCmdCase exp (MG { mg_alts = matches, mg_arg_tys = arg_tys, mg_origin = origin })) env_ids = do stack_id <- newSysLocalDs stack_ty @@ -561,7 +561,7 @@ dsCmd ids local_vars stack_ty res_ty in_ty = envStackType env_ids stack_ty core_body <- dsExpr (HsCase exp (MG { mg_alts = matches', mg_arg_tys = arg_tys - , mg_res_ty = sum_ty })) + , mg_res_ty = sum_ty, mg_origin = origin })) -- Note that we replace the HsCase result type by sum_ty, -- which is the type of matches' |