diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-07-31 13:27:54 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-07-31 13:36:49 +0100 |
| commit | 4fdc523456ff6481df8d7483ae193f0c2dc2b3fe (patch) | |
| tree | 26d747a4df84e1fd810b61a29c3ba36c46e0252c /compiler/rename/RnExpr.hs | |
| parent | 7f2dee8e5de5dbc09a7fb66ec54fd41ab4b1b2eb (diff) | |
| download | haskell-4fdc523456ff6481df8d7483ae193f0c2dc2b3fe.tar.gz | |
Use field names for all uses of datacon Match
This is refactoring only... elimiante all positional uses
of the data constructor Match in favour of field names.
No change in behaviour.
Diffstat (limited to 'compiler/rename/RnExpr.hs')
| -rw-r--r-- | compiler/rename/RnExpr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rename/RnExpr.hs b/compiler/rename/RnExpr.hs index c5c75ab671..0e2022da47 100644 --- a/compiler/rename/RnExpr.hs +++ b/compiler/rename/RnExpr.hs @@ -577,7 +577,7 @@ methodNamesMatch :: MatchGroup GhcRn (LHsCmd GhcRn) -> FreeVars methodNamesMatch (MG { mg_alts = L _ ms }) = plusFVs (map do_one ms) where - do_one (L _ (Match _ _ _ grhss)) = methodNamesGRHSs grhss + do_one (L _ (Match { m_grhss = grhss })) = methodNamesGRHSs grhss ------------------------------------------------- -- gaw 2004 |