X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcParser.y;h=b99e3246cf95749bcc321c812694baa393bdd7e4;hb=1a660e030bd3aaaa34adfea77d72856cdb48479e;hp=c18e053c153de362d0c3ac53f35633a5aa6a304c;hpb=d759c7231dde979ed2824bd39b2fdff24357d355;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcParser.y b/utils/hpc/HpcParser.y
index c18e053..b99e324 100644
--- a/utils/hpc/HpcParser.y
+++ b/utils/hpc/HpcParser.y
@@ -1,9 +1,9 @@
 { 
-{-# OPTIONS_GHC -w #-}
+{-# OPTIONS -Wwarn #-}
 -- The above warning supression flag is a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
---     http://hackage.haskell.org/trac/ghc/wiki/WorkingConventions#Warnings
+--     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
 -- for details
 
 module HpcParser where
@@ -12,6 +12,7 @@ import HpcLexer
 }
 
 %name parser
+%expect 0
 %tokentype { Token }
 
 %token
@@ -31,7 +32,7 @@ import HpcLexer
 	'}'		{ SYM '}' }
 	int		{ INT $$ }
 	string		{ STR $$ }
-	cat		{ STR $$ }
+	cat		{ CAT $$ }
 %%
 
 Spec    :: { Spec }