[clean up stats some
John Meacham <john@repetae.net>**20090817231029
 Ignore-this: ebfe3952f00720843c0da1fbbf33294
] hunk ./src/Stats.hs 35
-import Char
hunk ./src/Stats.hs 51
-import Options (dump)
-import qualified FlagDump as FD
-
-
hunk ./src/Stats.hs 86
-        drawSubTrees [t] = 
+        drawSubTrees [t] =
hunk ./src/Stats.hs 93
-        
+
hunk ./src/Stats.hs 105
-prependStat name (Stat m) = Stat $ IB.fromList [ (fromAtom (toAtom $ "{" ++ name ++ "}." ++ fromAtom (unsafeIntToAtom x)),y) | (x,y) <- IB.toList m ]
+prependStat name (Stat m) = Stat $ IB.fromList [ (fromAtom $ mappend (toAtom $ "{" ++ name ++ "}.")  (unsafeIntToAtom x),y) | (x,y) <- IB.toList m ]