[code cleanups
John Meacham <john@repetae.net>**20051011231238] hunk ./Stats.hs 4
-import qualified Data.HashTable as H
-import Atom
-import GenUtil
-import List(sort,groupBy)
-import CharIO
-import Data.Tree
-import qualified Doc.Chars as C
hunk ./Stats.hs 5
-import Data.IORef
hunk ./Stats.hs 6
-import Control.Monad.Writer
-import Control.Monad.Reader
-import Control.Monad.Identity
hunk ./Stats.hs 7
-import System.IO.Unsafe
+import Control.Monad.Identity
+import Control.Monad.Reader
+import Control.Monad.Writer
+import Data.IORef
+import Data.Tree
+import List(sort,groupBy)
+import qualified Data.HashTable as H
hunk ./Stats.hs 15
+import System.IO.Unsafe
+
+import Atom
+import CharIO
+import GenUtil
+import qualified Doc.Chars as C
hunk ./Stats.hs 148
+runStatT :: Monad m => StatT m a -> m (a,Stat)