[add flag to dump stats from the stringtable library on exit
John Meacham <john@repetae.net>**20120129115522
 Ignore-this: c57a6e3859d0b4c57c05debfa3f27409
] hunk ./src/FlagDump.flags 72
+!Internal
+atom dump atom table on exit
hunk ./src/Main.hs 22
+import StringTable.Atom
hunk ./src/Main.hs 34
+    when (dump FD.Atom) $
+        addAtExit dumpStringTableStats
hunk ./src/Support/TempDir.hs 9
+    addAtExit,
hunk ./src/Support/TempDir.hs 31
+    tempDirAtExit  :: [IO ()],
hunk ./src/Support/TempDir.hs 64
+addAtExit :: IO () -> IO ()
+addAtExit action = do
+    td <- readIORef tdRef
+    writeIORef tdRef td { tempDirAtExit = action:tempDirAtExit td }
+
hunk ./src/Support/TempDir.hs 108
+    sequence_ (tempDirAtExit td)
hunk ./src/Support/TempDir.hs 151
+    tempDirAtExit  = [],