[commit: ghc] master: Add missing argument in Match, a merge bug (apologies) (9a14582)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/9a1458266b8fa349c9fb58889825d899a762fa27/ghc

>---------------------------------------------------------------

commit 9a1458266b8fa349c9fb58889825d899a762fa27
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Jan 19 10:20:39 2015 +0000

    Add missing argument in Match, a merge bug (apologies)


>---------------------------------------------------------------

9a1458266b8fa349c9fb58889825d899a762fa27
 compiler/typecheck/TcPatSyn.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcPatSyn.hs b/compiler/typecheck/TcPatSyn.hs
index 16ff2e8..612eabe 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