3
> %token Int { TokenInt }
9
The constant in the next rule would be defaulted to Integer, but it is
10
forced to Int by the type signature of Expr above. This test exposed
11
a bug in the unsafeCoerce method.
16
> main = print (parse [TokenInt])
18
> data Token = TokenInt
20
> happyError = error ""