'then' { ITthen }
'type' { ITtype }
'where' { ITwhere }
- 'as' { ITas }
- 'qualified' { ITqualified }
- 'hiding' { IThiding }
+ 'forall' { ITforall } -- GHC extension keywords
+ 'foreign' { ITforeign }
'export' { ITexport }
'label' { ITlabel }
'dynamic' { ITdynamic }
'unsafe' { ITunsafe }
- '__interface' { ITinterface } -- GHC-extension keywords
+
+ '__interface' { ITinterface } -- interface keywords
'__export' { IT__export }
'__forall' { IT__forall }
'__depends' { ITdepends }
STRING { ITstring $$ }
INTEGER { ITinteger $$ }
RATIONAL { ITrational $$ }
+ CLITLIT { ITlitlit $$ }
UNKNOWN { ITunknown $$ }
%%
: VARID { $1 }
| VARSYM { $1 }
| '!' { SLIT("!") }
- | 'as' { SLIT("as") }
- | 'qualified' { SLIT("qualified") }
- | 'hiding' { SLIT("hiding") }
+ | 'forall' { SLIT("forall") }
+ | 'foreign' { SLIT("foreign") }
| 'export' { SLIT("export") }
| 'label' { SLIT("label") }
| 'dynamic' { SLIT("dynamic") }
ccall_string :: { FAST_STRING }
: STRING { $1 }
+ | CLITLIT { $1 }
| VARID { $1 }
| CONID { $1 }