The parser needs a set of parentheses when we don't use unsafeCoerce.

diff --git a/ghc/compiler/parser/Parser.y.pp b/ghc/compiler/parser/Parser.y.pp
index d49ec76..3066a0f 100644 (file)
--- a/ghc/compiler/parser/Parser.y.pp
+++ b/ghc/compiler/parser/Parser.y.pp
@@ -275,7 +275,7 @@ TH_TY_QUOTE { L _ ITtyQuote       }      -- ''T
 %name parseIdentifier  identifier
 %name parseType ctype
 %partial parseHeader header
-%tokentype { Located Token }
+%tokentype { (Located Token) }
 %%
 
 -----------------------------------------------------------------------------