[use emptyConstructor to clean up code
John Meacham <john@repetae.net>**20061219015608] hunk ./DataConstructors.hs 178
-        dataCons = Constructor {
+        dataCons = emptyConstructor {
hunk ./DataConstructors.hs 182
-            conDeriving = [],
hunk ./DataConstructors.hs 183
-            conAlias = NotAlias,
hunk ./DataConstructors.hs 184
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 186
-        typeCons = Constructor {
+        typeCons = emptyConstructor {
hunk ./DataConstructors.hs 190
-            conDeriving = [],
hunk ./DataConstructors.hs 191
-            conAlias = NotAlias,
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 203
-tabsurd = Constructor {
+tabsurd = emptyConstructor {
hunk ./DataConstructors.hs 206
-            conSlots = [],
-            conDeriving = [],
hunk ./DataConstructors.hs 207
-            conAlias = NotAlias,
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 214
-tbox = Constructor {
+tbox = emptyConstructor {
hunk ./DataConstructors.hs 217
-            conSlots = [],
-            conDeriving = [],
hunk ./DataConstructors.hs 218
-            conAlias = NotAlias,
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 225
-tarrow = Constructor {
+tarrow = emptyConstructor {
hunk ./DataConstructors.hs 229
-            conDeriving = [],
hunk ./DataConstructors.hs 230
-            conAlias = NotAlias,
hunk ./DataConstructors.hs 231
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 236
-    g n = Constructor {
+    g n = emptyConstructor {
hunk ./DataConstructors.hs 239
-        conSlots = [],
hunk ./DataConstructors.hs 241
-        conAlias = NotAlias,
-        conVirtual = Nothing,
hunk ./DataConstructors.hs 245
-        dataCons = Constructor {
+        dataCons = emptyConstructor {
hunk ./DataConstructors.hs 249
-            conDeriving = [],
hunk ./DataConstructors.hs 250
-            conAlias = NotAlias,
-            conVirtual = Nothing,
hunk ./DataConstructors.hs 253
-        typeCons = Constructor {
+        typeCons = emptyConstructor {
hunk ./DataConstructors.hs 256
-            conSlots = [],
-            conDeriving = [],
hunk ./DataConstructors.hs 257
-            conAlias = NotAlias,
-            conVirtual = Nothing,