diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-19 10:20:39 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-19 10:20:39 +0000 |
| commit | 9a1458266b8fa349c9fb58889825d899a762fa27 (patch) | |
| tree | 00ab5b93ccf54d9614017a4f39db5612db2ce35c | |
| parent | 3ea40e38a7ae03c05cb79485fb04a3f00c632793 (diff) | |
| download | haskell-9a1458266b8fa349c9fb58889825d899a762fa27.tar.gz | |
Add missing argument in Match, a merge bug (apologies)
| -rw-r--r-- | compiler/typecheck/TcPatSyn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcPatSyn.hs b/compiler/typecheck/TcPatSyn.hs index 16ff2e8c60..612eabe5f3 100644 --- a/compiler/typecheck/TcPatSyn.hs +++ b/compiler/typecheck/TcPatSyn.hs @@ -388,8 +388,8 @@ tcPatSynBuilderBind PSB{ psb_id = L loc name, psb_def = lpat InfixPatSyn arg1 arg2 -> [arg1, arg2] add_dummy_arg :: MatchGroup Name (LHsExpr Name) -> MatchGroup Name (LHsExpr Name) - add_dummy_arg mg@(MG { mg_alts = [L loc (Match [] ty grhss)] }) - = mg { mg_alts = [L loc (Match [nlWildPatName] ty grhss)] } + add_dummy_arg mg@(MG { mg_alts = [L loc (Match Nothing [] ty grhss)] }) + = mg { mg_alts = [L loc (Match Nothing [nlWildPatName] ty grhss)] } add_dummy_arg other_mg = pprPanic "add_dummy_arg" $ pprMatches (PatSyn :: HsMatchContext Name) other_mg |