[commit: testsuite] master: Fix T6145; MatchGroup was renamed to MG and altered (815c435)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/815c4355ca6ec97fe476d46b2c09ef257bc753dc

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

commit 815c4355ca6ec97fe476d46b2c09ef257bc753dc
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Feb 17 21:55:42 2013 +0000

    Fix T6145; MatchGroup was renamed to MG and altered

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

 tests/ghc-api/T6145.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tests/ghc-api/T6145.hs b/tests/ghc-api/T6145.hs
index 42fc93b..0332b05 100644
--- a/tests/ghc-api/T6145.hs
+++ b/tests/ghc-api/T6145.hs
@@ -35,7 +35,7 @@ main = do
       getDataCon (L _ (AbsBinds { abs_binds = bs }))
         = not (isEmptyBag (filterBag getDataCon bs))
       getDataCon (L l (f at FunBind {}))
-        | (MatchGroup (m:_) _)<-fun_matches f,
+        | (MG (m:_) _ _) <- fun_matches f,
           (L _ (c at ConPatOut{}):_)<-hsLMatchPats m,
           (L l _)<-pat_con c
         = isGoodSrcSpan l       -- Check that the source location is a good one