X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcParser.y;h=3f7443771bb157ad8506791c01a8118c9ccd54ff;hb=04a42d01c41923baf66eacabf6ffb22dfe367108;hp=a6a095b9abdc8c44807e5d8a343a5ce3c19c21eb;hpb=4799dfb37be922c17451f8e0f7c8d765a7a7eaab;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcParser.y b/utils/hpc/HpcParser.y
index a6a095b..3f74437 100644
--- a/utils/hpc/HpcParser.y
+++ b/utils/hpc/HpcParser.y
@@ -6,7 +6,6 @@ import HpcLexer
 
 %name parser
 %tokentype { Token }
-%error { \ e -> error $ show (take 10 e) }
 
 %token
 	MODULE 		{ ID "module" }
@@ -102,5 +101,5 @@ hpcParser filename = do
   let tokens = initLexer txt
   return $ parser tokens  	
 
-
+happyError e = error $ show (take 10 e)
 }