{
+{-# 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
}
%name parser
+%expect 0
%tokentype { Token }
-%error { \ e -> error $ show (take 10 e) }
%token
MODULE { ID "module" }
'}' { SYM '}' }
int { INT $$ }
string { STR $$ }
- cat { STR $$ }
+ cat { CAT $$ }
%%
Spec :: { Spec }
let tokens = initLexer txt
return $ parser tokens
-
+happyError e = error $ show (take 10 e)
}