diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-03-11 16:33:54 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2017-03-11 16:33:54 +0300 |
| commit | 8d61a605e7d1f2490cbe26c465f87f8bafe0d4fc (patch) | |
| tree | db3cbf3238837a2a166a0edc39e164ed9a72c1b4 /compiler/deSugar/Match.hs | |
| parent | 3ca252b1dde379d0ce1f18a34703a94084fb46d0 (diff) | |
| download | haskell-8d61a605e7d1f2490cbe26c465f87f8bafe0d4fc.tar.gz | |
dsGRHSs: Remove unused pattern variables argument
Diffstat (limited to 'compiler/deSugar/Match.hs')
| -rw-r--r-- | compiler/deSugar/Match.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Match.hs b/compiler/deSugar/Match.hs index a4aa56e975..92f78bed33 100644 --- a/compiler/deSugar/Match.hs +++ b/compiler/deSugar/Match.hs @@ -755,7 +755,7 @@ matchWrapper ctxt mb_scr (MG { mg_alts = L _ matches ; tm_cs <- genCaseTmCs2 mb_scr upats vars ; match_result <- addDictsDs dicts $ -- See Note [Type and Term Equality Propagation] addTmCsDs tm_cs $ -- See Note [Type and Term Equality Propagation] - dsGRHSs ctxt upats grhss rhs_ty + dsGRHSs ctxt grhss rhs_ty ; return (EqnInfo { eqn_pats = upats, eqn_rhs = match_result}) } handleWarnings = if isGenerated origin |