Require a bang pattern when unlifted types are where/let bound; #3182

[ghc-hetmet.git] / utils / hpc / HpcParser.y

diff --git a/utils/hpc/HpcParser.y b/utils/hpc/HpcParser.y
index a6a095b..cf1d156 100644 (file)
--- a/utils/hpc/HpcParser.y
+++ b/utils/hpc/HpcParser.y
@@ -1,4 +1,11 @@
 { 
+{-# 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/Commentary/CodingStyle#Warnings
+-- for details
+
 module HpcParser where
 
 import HpcLexer
@@ -6,7 +13,6 @@ import HpcLexer
 
 %name parser
 %tokentype { Token }
-%error { \ e -> error $ show (take 10 e) }
 
 %token
        MODULE          { ID "module" }
@@ -25,7 +31,7 @@ import HpcLexer
        '}'             { SYM '}' }
        int             { INT $$ }
        string          { STR $$ }
-       cat             { STR $$ }
+       cat             { CAT $$ }
 %%
 
 Spec    :: { Spec }
@@ -102,5 +108,5 @@ hpcParser filename = do
   let tokens = initLexer txt
   return $ parser tokens       
 
-
+happyError e = error $ show (take 10 e)
 }