[fix creation of complicated conjured type names, don't print built in data table entries unless requested
John Meacham <john@repetae.net>**20090227105042
 Ignore-this: 81e49bfcad69a034591a880843ac727b
] hunk ./DataConstructors.hs 32
+    samplePrimitiveDataTable,
hunk ./DataConstructors.hs 743
-    (ubt,ubd) = tunboxedtuple 3
-    ds = sortBy (\(x,_) (y,_) -> compare x y) [ (show x,y)  | (x,y) <-  Map.toList mp ++ [(conName ubt,ubt),(conName ubd,ubd)]]
+    ds = sortBy (\(x,_) (y,_) -> compare x y) [(show x,y)  | (x,y) <-  Map.toList mp]
hunk ./DataConstructors.hs 746
+samplePrimitiveDataTable :: DataTable
+samplePrimitiveDataTable = DataTable $ Map.fromList [ (x,c) | x <- xs, c <- getConstructor x mempty] where
+    nt v = map (flip unboxedNameTuple (v::Int)) [DataConstructor, TypeConstructor]
+    xs = nt 0 ++ nt 3 ++ [nameConjured modAbsurd eStar,nameConjured modBox hs,rt_bits16,rt_bits_ptr_]
+    hs = EPi (tVr emptyId eHash) eStar
+
hunk ./E/E.hs 110
-    f (EPi TVr { tvrType = t1 } t2) = ('^':) . shows t1 . shows t2
+    f (EPi TVr { tvrType = t1 } t2) = ('^':) . f t1 . f t2
hunk ./FlagDump.flags 50
+datatable-builtin show data table entries for some built in types
hunk ./Main.hs 492
+    wdump FD.DatatableBuiltin $ putErrLn (render $ showDataTable samplePrimitiveDataTable)