--- For some bizarre reason,
--- (,,,) is dealt with by the parser
--- Foo.(,,,) is dealt with by the lexer
--- Sigh
-
-data_fs :: { EncodedFS }
- : CONID { $1 }
- | CONSYM { $1 }
-
-qdata_fs :: { (EncodedFS, EncodedFS) }
- : QCONID { $1 }
- | QCONSYM { $1 }