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/hsSyn/HsExpr.lhs | |
| parent | 7fa0b43593644fba8a3a60e5503a55268578d3c0 (diff) | |
| download | haskell-eeaea2df3fa585db503034f419c6e4331a4d8a84.tar.gz | |
Instead of tracking Origin in LHsBindsLR, track it in MatchGroup
Diffstat (limited to 'compiler/hsSyn/HsExpr.lhs')
| -rw-r--r-- | compiler/hsSyn/HsExpr.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/hsSyn/HsExpr.lhs b/compiler/hsSyn/HsExpr.lhs index 4c0c955cdd..f5ba1903ee 100644 --- a/compiler/hsSyn/HsExpr.lhs +++ b/compiler/hsSyn/HsExpr.lhs @@ -909,7 +909,8 @@ patterns in each equation. data MatchGroup id body = MG { mg_alts :: [LMatch id body] -- The alternatives , mg_arg_tys :: [PostTcType] -- Types of the arguments, t1..tn - , mg_res_ty :: PostTcType } -- Type of the result, tr + , mg_res_ty :: PostTcType -- Type of the result, tr + , mg_origin :: Origin } -- The type is the type of the entire group -- t1 -> ... -> tn -> tr -- where there are n patterns |