--- a/tools/PascalUnitSyntaxTree.hs Tue Feb 07 22:39:36 2012 -0500
+++ b/tools/PascalUnitSyntaxTree.hs Wed Feb 08 15:49:55 2012 +0400
@@ -105,7 +105,7 @@
| BTArray BaseType BaseType
| BTFunction
| BTPointerTo BaseType
- | BTSet
+ | BTSet BaseType
| BTEnum [String]
| BTVoid
deriving Show