[project @ 1998-06-09 09:53:03 by sof]

[ghc-hetmet.git] / ghc / compiler / parser / hsparser.y

diff --git a/ghc/compiler/parser/hsparser.y b/ghc/compiler/parser/hsparser.y
index 627ccfe..6637779 100644 (file)
--- a/ghc/compiler/parser/hsparser.y
+++ b/ghc/compiler/parser/hsparser.y
@@ -511,7 +511,7 @@ classd      :  classkey btype DARROW simple_con_app1 cbody
        |  classkey btype cbody
                /* We have to say btype rather than simple_con_app1, else
                   we get reduce/reduce errs */
-               { check_class_decl_head($3);
+               { check_class_decl_head($2);
                  $$ = mkcbind(Lnil,$2,$3,startlineno); }
        ;