Added a case for the top-level AST to OrdAST

This commit is contained in:
Neil Brown 2008-02-05 22:36:12 +00:00
parent 005ee78f03
commit 56a701551a

View File

@ -107,6 +107,7 @@ items = concat
,ordFor' "(AST.Structured AST.Alternative)" (u :: A.Structured A.Alternative)
,ordFor' "(AST.Structured AST.Variant)" (u :: A.Structured A.Variant)
,ordFor' "(AST.Structured AST.ExpressionList)" (u :: A.Structured A.ExpressionList)
,ordFor' "(AST.Structured ())" (u :: A.Structured ())
,ordFor (u :: A.Subscript)
,ordFor (u :: A.Type)
,ordFor (u :: A.Variable)